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ABS TRACT 

TC02 DEOape Random Exerciser is a program for use with the TC02 DECtape 
control and from 1 to 8 TU55 DECtape transports. DECtape functions are 
exercised by the random determination of function, direction, transport number, 
number of blocks and data pattern generation. Search, Read Data and Write 
Data are exercised in both Normal and Continuous modes; Read AH is exercised 
in the Continuous mode; Move is exercised. During the waiting period while 
DECtape functions ere being performed, small instruction test programs are being 
executed by the centra! processor to test the proper execution of the Data Break 
facility. 


2. 

REQUIREMENTS 

2.1 

Equipment 


Standard PDP-15 computer with a TC02 DECtape control and at least one TU55 
DECtape transport (up to eight may be tested), and one standard PDP-9 Format 
DECtape (1 100^ Blocks, 400g words each) for each transport. 

2.2 

Storage 

2.2.1 

Program - Most of memory from 00000 to 04000 . 

2-2-2 

JMS Test Area ~ 06000 06201 , 

2.2.3 

Data Buffers - 04000 to 05 7 . 

2.3 

Preliminary Programs 


TC02 Basic Exerciser 

3. 

LOADING PROCEDURE 
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3.1 


Method 


The program is loaded from paper tape using the standard binary tape loading 
procedure . 

a. Place tape in the reader. 

b. Set the ADDRESS switches to 17700. 

c. Set BANK MODE switch to 1 . 

d. Depress I/O RESET. 

e. Depress KEY READ IN. 

f . Program will be loaded into memory. 

4. STARTING PROCEDURE 


4.1 Control Switch Settings 


The following is a table of Accumulator Switch settings and their action on the 
program . 


AC Switch 


Set As Action 


0 
1 
2 
3 
10 
! I 
12 

13 

14 

15 


1 HALT ON ERROR 

0 DON'T HALT ON ERROR 

1 DON'T PRINT ERRORS 

0 PRINT ERRORS 

1 PRINT ONLY 4 DATA ERRORS 

0 PRINT ALL DATA ERRORS 

1 HIT END ZONE TWICE FOR 0000 or 1077 

0 HIT END ZONE ONCE FOR 0000 or W77 

1 EXERCISE TRANSPORT 8 
0 

! EXERCISE TRANSPORT I 

0 

1 EXERCISE TRANSPORT 2 

0 

1 EXERCISE TRANSPORT 3 

0 

1 EXERCISE TRANSPORT 4 

0 

1 EXERCISE TRANSPORT 5 
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4.1 


Control Switch Settings Cont. 


AC Switch Set As Action 

0 

16 1 EXERCISE TRANSPORT 6 

0 

17 1 EXERCISE TRANSPORT 7 

0 

4.2 Starting Address 

The program's starting address is 00100. 

4.3 Operator Action 

a . Load program per 3.1. 

b. Put each TU55 to be tested ON LINE with WRITE ENABLED and a standard 
PDP-9 DECtape on it. 

c. Set the selector dial(s) to the appropriate number(s). 

d. Set AC switches per 4.1 (Normal setting is 000XXX). 

e. Depress I/O RESET. 

f. Depress START 

5. OPERATING PROCEDURE 

5.1 Operational Switch Settings 
See 4.1. 

5.2 Subroutine Abstract 
None 
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5.3 Operator Action 

"Bad" DECtape transports may be "deselected" at any time by setting to 0 the AC 
Switch for that transport. 


6. ERRORS 

All DECtape malfunctions detected by that program result in an error typeout 
(if ACS 1 is 0) and an error halt (if ACS 0 is 1). The halt will not occur until 
all errors pertaining to the block and operation have been typed. 

The first three lines of every typeout indicate the DECtape drive, operation, 
direction, and mode, and the block in question. 


6.1 Error Halts 


6.1.1 Processor Test Error Halts 


Processor test errors cause error halts only. Listed below is the location of these 
halts and the condition causing each. Consult the program listing for further 


information. These 
at location 00100. 

errors are non-recoverabl 

e, the program must be restarted 

Address 

Test and Cause 


02057 

IS Z Test 

Location 02201 should ~ 

0 

02063 

ISZ Test 

Location 02200 should = 

1 

02075 

ROTATE 1 Test 

Link should = 1 


02102 

ROTATE 1 Test 

Data Fai lure 


02113 

ROTATE 2 Test 

Link should = 0 


02120 

ROTATE 2 Test 

Data fai lure 


02130 

SAD TEST 

Sad Failure 


02170 

JMS TEST 

JMS Failure 
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6.1 .2 DECtape Test Error Halts 


6. 1.2.1 Selection Error 

If no transports are selected by ACS 10 to 17, the computer will halt at 
location 00107 to allow the operator to set the ACS's and depress 
CONTINUE. 


6. 1.2. 2 Read Data Error 

A "Read Data" error will cause an error halt at location 00327. To recover, 
depress "CONTINUE". 

6.1 .2.3 Write Data Error 

A "Write Data" error will cause an error halt at location 01064. To recover, 
depress "CONTINUE". 

6.1 ,2,4 Read All Error 

A "Read AM" status error will cause an error halt at location 01677. To recover, 

depress "CONTINUE". "Read Ail" data errors will halt per 6.1 .2.2. 

6. 1 .2 .5 Move Error 

A "Move" error will cause an error halt at location 02351 . To recover, depress 
CONTINUE". 


6. 1.2. 6 Search Error 

A "Search" error will cause an error halt at location 02627. To recover, depress 
"CONTINUE". 


6.2 Error Recovery (Non- Processor) 

After an error typeout the processor will halt. To recover, depress "CONTINUE". 
For all errors, the program will attempt to repeat the same or a similar operation, 
if an error occurs a second time for the same operation, the typeout and halt 
wiU occur again. If "CONTINUE" is depressed this time, the drive in error 
will rewind and the random selections will commence at block 0 again. If, on 
the other hand, no error occurs, the program wiU continue normal operation. 

C 



6.2 


Error Recovery (Non-Processor) Cont. 


For read errors ("Read Data" and "Read All"), the direction of the second 
read operation to the original error's direction. A second error will cause another 
typeout and halt. Depressing "CONTINUE" will cause the drive to rewind to 
end zone. If no error occurs on the second pass, the block will be read a third 
time in the original direction. Any error will cause a typeout and halt. The 
end result of repeated errors is rewind to end zone and random selection starting 
with block 0 to prevent the same read sequence. 


6.3 Error Typeouts 


6.3.1 Search Errors 

"Search" error typeouts contain the following information: 

Drive Number 

Search Direction and Mode 

Block Wanted and Direction 

Last Number Put in Memory by TC02 

Last Block Number Found if More than Two Were Found 

Number of Blocks Found Since Last Startup or Turn-Around 

DECtape Status B 

Example: 


DRIVE 4 


SEARCH 

FORWARD 

000123 

BLOCK WANTED FORWARD 

000070 

BLOCK FOUND 

000073 

LAST BLOCK 

000004 

BLOCKS READ 

000100 

STATUS B 
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6.1 .2 DEC tape Test Error Halts 


6. 1.2.1 Selection Error 

If no transports are selected by ACS 10 to 17, the computer will halt at 
location 00107 to allow the operator to set the ACS's and depress 
CONTINUE. 


6. 1.2. 2 Read Data Error 

A "Read Data" error will cause an error halt at location 00327. To recover, 
depress "CONTINUE". 


6. 1.2. 3 Write Data Error 

A "Write Data" error will cause an error halt at location 01064. To recover, 
depress "CONTINUE". 

6. 1.2. 4 Read All Error 

A "Read All" status error will cause an error halt at location 01677. To recover, 
depress "CONTINUE". "Read All" data errors will halt per 6.1 .2.2. 

6. 1.2. 5 Move Error 

A "Move" error will cause an error halt at location 02351 . To recover, depress 
"CONTINUE". 


6. 1.2. 6 Search Error 

A "Search" error will cause an error halt at location 02627. To recover, depress 
"CONTINUE". 


6.2 Error Recovery (Non-Processor) 

After an error typeout the processor will halt. To recover, depress "CONTINUE". 
For all errors, the program will attempt to repeat the same or a similar operation. 

If an error occurs a second time for the same operation, the typeout and halt 
will occur again. If "CONTINUE" is depressed this time, the drive in error 
will rewind and the random selections will commence at block 0 again. If, on 
the other hand, no error occurs, the program will continue normal operation. 
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6.2 


Error Recovery (Non- Processor) Cont. 


For read errors ("Read Data" and "Read All"), the direction of the second 
read operation to the original error's direction. A second error will cause another 
typeout and halt. Depressing "CONTINUE" will cause the drive to rewind to 
end zone. If no error occurs on the second pass, the block will be read a third 
time in the original direction. Any error will cause a typeout and halt. The 
end result of repeated errors is rewind to end zone and random selection starting 
with block 0 to prevent the same read sequence. 


6.3 Error Typeouts 

6.3.1 Search Errors 

"Search" error typeouts contain the following information: 

Drive Number 

Search Direction and Mode 

Block Wanted and Direction 

Last Number Put in Memory by TC02 

Last Block Number Found if More than Two Were Found 

Number of Blocks Found Since Last Startup or Turn-Around 

DECtape Status B 

Example: 


DRIVE 4 


SEARCH 

FORWARD 

000123 

BLOCK WANTED FORWARD 

000070 

BLOCK FOUND 

000073 

LAST BLOCK 

000004 

BLOCKS READ 

000100 

STATUS B 
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6.3.1 


Search Errors Cont. 


The above example shows that the control was operating with Drive # 4 , search- 
ing in the forward direction for block #123. It encountered block #70 after 
block #73 (should have been #74). Up to this time it had read 4 blocks. DEC- 
tape status was normal . The block sequence was not consecutive, no doubt 
due to the loss of bit 15 of the block number. 


6.3.2 Write Data Errors 

"Write Data" error typeouts contain the following information: 
drive Number 
Direction and Mode 
DECtape Status B 

Contents of Word Count Register (Location 00030). 


Example: 


DRIVE 1 


WRITE 

DATA BACKWARD CONTINUOUS 

000765 

BLOCK 

600000 

STATUS B 

777634 

WC 


The above example shows that a mark track error occurred while writing data 
backwards in the continuous mode in block #765. 

6.3.3 Read Data Errors 

"Read Data" error typeouts are of two types - status and data compare. 
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6. 3. 3.1 Status Error Typeouts 


These typeouts contain the following information: 

Drive Number 
Direction and Mode 
Block Being Read 
DEC tape Status B 

Contents of WC if not 0 (Note: No data comparison if WC is not 0) . 

Example: 


DRIVE 7 


READ 

DATA BACKWARD CONTINUOUS 

001065 

BLOCK 

440000 

STATUS B 

777400 

WC 


The above example shows that an attempt to read data from block ^1065 on 
drive ^7 in the backward direction in continuous mode caused a select error. 
Since WC is not 0, no data comparison was made. 


6. 3. 3. 2 Data Compare Errors 

These typeouts contain the following information: 
Drive Number 
Direction 
Mode 

Block Read 
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6. 3. 3. 2 Data Compare Errors Cont. 


Correct Data 
Erroneous Data 
Address of Incorrect Data 


Example: 


DRIVE 5 


READ 

DATA FORWARD 

DATA 

ERROR 

001074 

BLOCK 

400000 

COR 

322667 

INC 

010374 

ADDRS OF INC 

000027 

COR 

067365 

INC 

010375 

ADDRS OF INC 


The above example shows that an attempt to read data in the forward direction 
from block ^1074 resulted in data errors. In the first printout: the correct 
data was 400000, the data from tape was 322667, the incorrect data is in 
location 010374. 


6.3.4 Read All Errors 


"Read All" error typeouts are of three types - status, data compare, Checksum. 


6 .3 .4 . 1 Status Error Typeouts 


Same format as "Read Data" - see 6.3.3. 1 . 
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6. 3. 4. 2 Data Compare Error Typeouts 


Same format as "Read Data" - 6. 3. 3. 2. 

6. 3. 4. 3 Checksum Error Typeouts 

These typeouts contain the following information: 

Drive Number 

Read All Direction and Mode 

Block Number 

Reverse Checksum for Tape 

Data Checksum Calculated from 6-bit XOR of Data by the Program 
LPB Calculated by Program (6-bit XOR of RC, DC, C above). 

Example: 


DRIVE 8 


READ ALL 

BACKWARD CONTINUOUS 

000000 

BLOCK 

CKSUM 

ERROR 

000033 

REV CHECKSUM 

000022 

DATA CHECKSUM CALCULATED 

670000 

CHECKSUM 

000076 

CALCULATED LPB 


The above example shows a checksum error. The 6-bit complement XOR of 
the Reverse Checksum, Calculated Data Checksum and Checksum should be 
000077. However, it calculated to 000076. 
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6.3.5 


Program Interrupt Errors 


The program detects 3 classes of program interrupt errors. After the PI 
typeout the program forces an operation typeout so that the function being per- 
formed may be determined. 


6.3.5. 1 Program Interrupt and No DECtape Flag or Error Flag Skip 
The following typeout will occur: 

PI NO DECTAPE SKIP 

6. 3. 5. 2 No Program Interrupt or DECtape Flag or Error Flag Skip after Timeout 

If no PI or DECtape hardware flags occur after 5 seconds for all functions 
except "MOVE" (which allows 45 seconds) the following typeout will occur: 

NO PI NO DECTAPE SKIP > 


6. 3. 5. 3 No Program Interrupt but DECtape Flag or Error Flag Skip after Timeout 

If no PI occurs, but hardware flags do occur after timeout (5 or 45 seconds) the 
following typeout will occur: 

NO PI DECTAPE SKIP 


7. 

RESTRICTIONS 

7.1 

Starting Restrictions 


None 

7.2 

Operating Restrictions 


Do not "deselect" a transport merely to change a reel of DECtape and then 
reselect it. If a reel of DECtape must be changed. Stop the program, change 
the reel of tape, then depress I/O RESET then START with 00100 in the 
Address Switches. 
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8 . 


MISCELLANEOUS 


8.1 Execution Time 


Program does not stop unless an error occurs. 


8.2 Data Format 


The data blocks written by the Random Exerciser are formatted to be bi- 
directional . Whether written forward or backward, they may be read in 
either direction on the TC02 with the resultant data looking the same. The 
first four words of the block contain pertinent information about the block. 
The first two words of each block are formatted as follows: 


WORD 1 


0 

LOWEST 

i L 

BLOCK NUMBER 


L 

i 


Control bit to indicate 
direction of write data 

0 - forward 

1 - backward 


WORD 2 


WORD 1+ 

NUMBER OF BLOCKS 


Complement of WORD 1 BIT 0 
I - forward 
0 - backward 


WORD 1 indicates the lowest numbered block in the series with bit 0 indicating 
the wirtten direction of the series of blocks. 

WORD 2 is 1 greater than the highest numbered block in the series, bit 0 
in WORD 2 is the complement of bit 0 in WORD 1 . 
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8.2 


Data Format Cont. 


Ignoring bits 0 of the two words: 

WORD 2 - WORD 1 = number of blocks in series. 

WORD 3 and WORD 4 of the block are random numbers used to generate the 
rest of the data. WORD 5 of the block is WORD 3 rotated right one position 
using an 18-bit rotate. 

WORD 6 is WORD 4 rotated right one position also using an 18-bit rotate. 
This process is repeated until WORD 128 is WORD 126 rotated right. WORD 
129 is the complement obverse of WORD 128. WORD 130 is the complement 
obverse of WORD 127, etc, . until the last word of the block is complement 
obverse of the first word of the block. 


WORD 1 

400617 

Block 617 to 

WORD 2 

000626 

625 inclusive were 

WORD 3 

732654 

written backwards using 

WORD 4 

201356 

these two words for data pattern 

WORD 5 

355326 

WORD 3 Right One 

WORD 6 

100567 

WORD 4 Right One, etc. 

WORD 253 

124675 

Complement obverse of WORD 4 

WORD 254 

321540 

Complement obverse of WORD 3 

WORD 255 

151777 

Complement obverse of WORD 2 

WORD 256 

061773 

Complement obverse of WORD 1 


9. PROGRAM DESCRIPTION 


9.1 Discussion 

TC02 DECTAPE RANDOM EXERCISER will exercise a TC02 DECtape control and 
any configuration of from 1 to 8 TU55 DECtape Drives. Drive, direction of 
operation, number of blocks, and data patterns are by random selection. First 
the program randomly selects a drive, then a number between 1 and 32 
(decimal) for the number of blocks, then the direction. There Is one possibility 
in four that the direction will be backward. The number of blocks is added to 
or subtracted from the last block position of the drive selected. If the block 
generated has not been written, a write operation is initiated. If the last block 
fable indicates that the block selected has already been written, a read operation 
is initiated. If READ is selected, the program then generates a random number 
between 0 and 7. If the number is 0, the block is read in "Read All Continuous" 
mode; if 4, "Read Data Normal" mode; if any other number, "Read Data 
Continuous" mode and two blocks are read. If WRITE is selected and the 
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9.1 


Discussion Cont. 


number of blocks is a multiple of 3 (3, 6, 9, 12, etc.), the blocks are written 
in continuous mode. Otherwise, the blocks are written in normal mode. 
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page: 


0TRF15 


1 RaNDEX 

.TITLE DTRE15 
. ABS 

/TC 02 Random exerciser - pqp-i5 


004000 RANBFR=4000 



004400 

8UFFRS=RANBFR+400 



000030 

WC = 30 




000031 

C A = 3 1 



00100 


.LOC 

: 100 


00100 

707704 

RANDEX 

LEM 


00101 

750004 

LAS 

/READ 

ACS AND 

0010 2 

503411 

ANO 

RUBOUT 


0010 3 

740200 

SEA 

/SEE 

I F any transports 

00104 

600111 

JMP 

. +5 /WERE 

SPECIFIED 

00*05 

2035*0 

lac 

(MESS1 

/control comes here 

00106 

102633 

jms 

msprnt 

/IE NONE 

00107 

740040 

XX 



00110 

600100 

JMP 

RANDEX 


00111 

043453 

DAC 

MSB ITS 


00112 

750001 

CLA ! 

CMA 


00113 

043447 

DAC 

frswat 


00114 

707554 

707554 /CLEAR "B" 

00115 

102207 

JMS 

REPOSI 

/put all DRIVES in end hone 

00116 

16345* 

DHM« 

lstblk 

/CLEAR NUMBER OF BLOCKS 

0 0117 

102244 

JMS 

CHNGOR 

/check to see if all were cleared 

00120 

600116 

JMP 

.>2 /NO, 

They WEREN’T 

00121 

203401 

lac 

one 


00122 

043452 

DAC 

lstdrv 


00123 

750004 

RDSWCH 

LAS 

/THIS SEQUENCE 

00124 

503411 

AND 

RUBOUT 

/allows the operator 

00125 

741200 

SNA 

/TO DESELECT 

00126 

600105 

JMP 

RANDEX+5 

/" BAD TRANSPORTS” 

00127 

043453 

DAC 

msbits 

/VIA THE AC SWITCHES 



/Random select ion 

OF OPeRaT IONS 

00*30 

* 0055* 

MOFPRO 

jms ransel /select a drive 

00131 

750001 

CLA : 

cma 


00132 

043457 

0AC 

PASfLG 


00133 

203436 

LAC 

CDrIvE 

/CHECK TO SEF IF 

00134 

343452 

tad 

LSTDRV 

/this drive was the 

00135 

751200 

SNA 2 

CLA /LAST 

ONE SELECTED 

00136 

600231 

JMP 

samdrv 

/yes, IT WAS! 

00137 

2^3436 

LAC 

CDRIVE 


00140 

740001 

CM A 



00141 

343401 

TAD 

ONE 


00142 

043452 

DAC 

LSTDRV 


00143 

750001 

CLA! 

cma 


00144 

043474 

0 AC 

RSQFLG 




/SELEC 

:T number of 

BLOCKS FOR OPERATION (1-32) 

0 01 45 

10051 6 

MOFPRl 

JMS RAND1 /GET A RANDOM NUMBER 

001 4 6 

503424 

AND 

tersev 


0 0 1 4 7 

740001 

cma 

/make 

“1 TO -32 (DEC) 

001 50 

043455 

0 AC 

NUM8LK 




/SELECT DIRECTION 

TO GO 

00151 

100527 

JMS 

RAN02 /GET 

another Random 

00152 

503425 

AND 

THREE 


00153 

751200 

SNA! 

CLA 




PAGE 
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RANGE* 


DTRE15 


00154 740001 

001 55 043446 

00156 223451 

00157 755200 

00160 600721 

00161 203446 

00162 750200 

00163 744002 

00164 203455 

00165 741400 

00166 600171 

00167 740001 

00170 343401 

00171 363467 

00172 043472 

00173 741100 

00174 143472 


00175 203472 

00176 740001 

00177 363451 

00200 741100 

00201 600721 

00202 100540 

00203 503413 

00204 741200 

00205 601431 

00206 503425 

00207 750200 
00210 601221 

00211 100253 

00212 600272 

00213 203432 

00214 707544 

00215 203472 

00216 063467 

00217 203446 

00220 063445 

00221 100400 

00222 777400 

00223 100626 

00224 004.000 

00225 004400 

00226 443442 

00227 600325 

00230 600 1? 3 

00231 100516 

00232 741100 

00233 600146 

00234 443474 


cm a /set backwards 

DAC DIRFLG /DIRECTION FLAG 

lac* lstblk 

sna’Cla'Cll /has drive been written on? 

JMP WRlTEl /no, write 

LAC DIRFLG 

/GENERATE BLOCK SELECT POSITION + OR - NUMBER 
S2A : CL A 
CLL ! CML 
LAC NUMBLK 
S2L 

JMP .+3 
CM A 

TAD ONE 

tad* positn 

DAC RECORD 

SPA /- RECORD? 

D2M RECORD /MAKE s 0 

/HAS BLOCK SELECTED BEEN WRITTEN 
/IF NOT, WRITE OPERATION SELECTED 
LAC RECORD 
CMA 

TAD* LSTBLK 

SPA /HAS BLOCK BEEN WRITTEN? 

JMP WRlTEl /NO 

JMS RAND3 
AND SEVEN 
SNA 

JMP RALLTS 
AND THREE 
S2 A ! CLA 
JMP RDCMOD 
RDTAB JMS rddata 
JMP REREAD 

/BLOCK HAS BEEN READ WITHOUT PARITY ERROR 
LAC TYTHOU 

707544 /STOP TAPE 

LAC RECORD 

DAC* POSITN /NEW POSITION 

LAC DIRFLG 

DAC* DIRECT /DIRECTION READ 

/MOVE FIRST FOUR WORDS TO REGENERATE DaTa PaTTeRN 
JMS PREGEN /GENERATE DATA PATTERN 

LAW -400 

JMS CODATA /COMPARE 400 WORDS 

RANBER /GOOD DATA HERE 

BUFERS /? DATA HERE 

IS2 COCNTR 

JMP REREDA /REREAD BLOCK IF ERROR 

JMP ROSWCH /GO BACK, READ ACS, SELECT NEW DRIVE 

/ d r i v e s eLec t eo s a m e a s l a st tim^, t^st f-or spRips 

SAmDrV JmS RAmDI /GET a rAnDom 

SPA /READ This STRING? 

JMP MOFP R l+i /FIND A NEW BLOCK 

IS2 RSQFLG 
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RANDEX 

DTRE15 




00? 35 

600146 

JMP 

MOFPRi+i 



00236 

503425 

AND 

three 



00237 

751200 

SNA ! 

CLA /FORWARD? 



00240 

740001 

cma 

/NO, GO BACKWARD 


00241 

043446 

DAC 

OIRFLG 



00242 

740001 

CMA 




00243 

343401 

TAD 

ONE 



00244 

343407 

tad 

RBUFST 

/forward GFTS 

00245 

043472 

dac 

RECORD 

/FIRST 

block 

00246 

203446 

lac 

OIRFLG 

/backward gets 

00247 

363472 

Tad* 

record 

/LAST 

BLOCK 

00250 

503373 

and 

indep /mask to 

10 BITS 


00251 

043472 

dac 

RECORD 

/AND STORE 

00252 

601070 

JMP 

ROSEQ /GO READ 





/REAO 

data subroutine 

(1 BLOCK) 



/D I RFLG=777777 (BACKWARD). 0 

( FORWARD ) 

00253 

000000 

RDOATA 

0 



00254 

102353 

JMS 

SEARCH 



00255 

203426 

LAC 

tretho 

/3000 


00256 

707544 

7075 

44 /CHANGE SEARCH TO READ DATA 

00257 

777400 

LAW 

-400 



00260 

040030 

DAC 

WC /INITIALIZE WORD 

count 

00261 

203364 

LAC 

BFlLOC 



00262 

040031 

DAC 

CA /AND CURRENT ADDRESS 

00263 

101701 

JMS 

watint 

/WAIT 

FOR COMPLETII 

00264 

000100 

100 

/DTF 



00265 

620253 

JMP* 

rddaTa 

/STATUS ERROR EXIT 

00266 

200030 

LAC 

we 



00267 

751200 

SNA ! 

CLA 



00270 

440253 

ISZ 

RDDATA 



00271 

620253 

JMP* 

rddaTa 

/NORMAL EXIT 



/type 

STATUS error on 

READ 1 

BLOCK 



/test 

for DaTa errors 

IF FULL READ 

00272 

750001 

REREAD 

CLA !CMA 



00273 

043457 

0 AC 

PASFLG 



00274 

102726 

JMS 

erstp /stop tape 


00275 

102754 

JMS 

TYRDAT 



00276 

203472 

LAC 

RECORD 



00277 

102670 

JMS 

OPRINT 

/TYPE 

BLOCK number 

00300 

203511 

LAC 

(MESS2 



00301 

102633 

JMS 

MSPRNT 

/type 

"block" 

00302 

707572 

707572 /READ "B" 


CONTENTS OF 

00303 

102670 

JMS 

OPRINT 

/type 

00304 

203512 

LAC 

(MESS3 



00305 

102633 

JMS 

MSPRNT 

/type 

"STATUS B" 

00306 

200030 

LAC 

WC 



00307 

741200 

SNA 

/SHORT BUFFER? 


00310 

600315 

JMP 

.♦5 /NO 



00 31 1 

102670 

JMS 

OPR I NT 

/type 

C(WC) 

0831? 

203513 

LAC 

(MESS4 



00313 

102633 

JMS 

MSPRNT 

/type 

" W , c . " 

00314 

600325 

JMP 

rereda 



00315 

100400 

JMS 

pregen 

/REGENRaTe pattern 

00316 

777405 

LAW 

-373 



00317 

340031 

TAD 

CA 
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r a N n E X 

DTRE15 


303214 

040324 

nAC .+4 


03321 

777400 

LAW - 4 0 0 


3 0 3 2? 

100626 

JMS CODATA 


00323 

004000 

RANBFR 


00324 

004400 

8UFFRS 


00325 

750004 

REREDA LAS 


00326 

751100 

SPA !CLA /HALT ON ERRORS? 

00323 

740040 

XX /YES 


00330 

443457 

IS? P ASFLG 


00331 

600361 

JMP REWqRV 

/REWIND DRIVE IF NOT FIRST ERROR 

00332 

203446 

LAC OIRFLG 


00333 

740001 

CMA 


00334 

043446 

0 AC DIRFLG 

/CHANGE TO READ IN OPPOSITE DIRECTION 

00335 

100253 

JMS RDDATa 

/READ DATA 

00336 

600274 

JMP REREAD+2 

/ERROR, AGAIN, TRY AGAIN 

00337 

100400 

JMS PREGEN 

/regenerate pattern 

00340 

777400 

LAW -400 


00341 

100626 

JMS CODATA 

/compare data 

00342 

004000 

RANBFR 


00343 

004400 

BUFFRS 


00344 

443442 

ISZ COCNTR 

/DONE ALL BLOCKS? 

00345 

600325 

JMP REREDA 

/NO 

00346 

203446 

LAC OIRFLG 


00347 

740001 

CMA 


00350 

043446 

OAC DIRFLG 

/change direction 

00351 

1 00253 

JMS RDDATA 

/READ AGAIN 

0035? 

600274 

JMP REREAD+2 

/another status error 

00353 

777400 

LAW -400 


00354 

100626 

JMS CODATA 

/compare data read 

00355 

004000 

RANBFR 


00356 

004400 

BUFFRS 


00357 

443442 

ISH COCNTR 

/done ALL BLOCKS? 

00360 

600325 

JMP REREDA 

/no 

00361 

203410 

rewqrv lac rewind 

00362 

243506 

xqr unfunc 


00363 

707545 

707545 /clear 

and LOAD "A" 

00364 

101701 

JMS WATINT 


00365 

500000 

500000 /ERROR, 

END OF TAPE 

00366 

600376 

JMP .+10 


00367 

163451 

OZM* LSTRLK 

/CLEAR LAST BLOCK 

00370 

163467 

0?M» POSJTN 

/AND POSITION FOR DRIVE 

00371 

750001 

claicma 


00372 

063445 

dac* DIRECT 

/SET DIRECTION FOR DRIVE BACKWARD 

00373 

203401 

LAC ONE 


00374 

043452 

OAC LSTDRV 

/SET LAST DRIVE TO 1 

00375 

600123 

JMP RDSWCH 

/GO BACK ALMOST TO BEGINNING 

00376 

102340 

JMS MOVER+2 


00377 

600361 

JMP REWDRV 

/MOVE FIRST 4 WORDS OF BLOCK READ 

/ano regenerate compare pattern 

00400 

000000 

PREGEN 0 


00401 

203405 

LAC RBFLOC 


00402 

040010 

DAC 10 


00403 

777774 

LAW -4 


00404 

043440 

OAC CNTR 
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randex 

0TRE15 

00405 

220031 

LAC* CA 

00 4 0 6 

100467 

JMS mcomob 

00407 

060010 

DAC* 10 

00410 

750201 

CLA ! CMA 

00411 

340031 

tad ca 

00412 

040031 

DAC CA 

00413 

443440 

IS? CNTR 

00414 

600405 

JMP .-7 

0 0 415 

10041 7 

JMS PATGEN 

0 0 416 

620400 

JMP* PREGEN 

/GENERATE RANDOM DaTa PATTERN 
/FIRST FOUR WORDS OF PATTERN aRE IN 

/Random buffer words i to 4 

00417 

000000 

PATGEN 0 

00420 

777774 

LAW -4 

00421 

043440 

DAC CNTR /INITIALIZE A COUNTER 

00422 

203407 

LAC RBUFST 

00423 

043463 

DAC PNTRi /AND TWO POINTERS 

00424 

203406 

LAC RBUFND 

00425 

043464 

DAC PNTR2 /FOR WORD TRANSFERS 

00426 

203502 

LAC TEM2 

00427 

043501 

DAC TEM1 /MOVE TEMl 

00430 

223463 

LAC* PNTRI 

00431 

043502 

DAC TEM2 /AND TEM2 

00432 

100467 

JMS MCOMOB /FORM COMPLEMENT OBVERSE 

00433 

063464 

DAC* PNTR2 /AND STORE IN RUFFER 

00434 

443463 

IS? PNTRi /INCREMENT FORWARD ADDRESS 

00435 

750001 

claicma 

00436 

343464 

Tad pntr 2 /decrement backward 

00437 

043464 

DAC PNTR2 

00440 

443440 

ISZ CNTR /DONE 4? 

00441 

600426 

JMP .-13 /NO 

00442 

777604 

LAW -174 

00443 

043440 

DAC CNTR /FOR 174 <OCT> MORE 

00444 

203501 

GNPATR LAC TEMi 

00445 

744020 

CLLIRAR /FORM NEXT WORD 

00446 

741400 

S2L /OF RANDOM 

00447 

243400 

XOR MUCH0 /PATTERN 

00450 

043503 

DAC TEM 3 

00451 

063463 

DAC* PNTRi /STORE IN BUFFER 

00452 

100467 

JMS MCOMOB 

00453 

063464 

DAC* PNTR2 /STORE COMP OBVERSE 

00454 

203502 

LAC TEM2 /MOVE 

00455 

043501 

DAC TEMl /A 

00456 

203503 

LAC TEM3 /FEW 

00457 

043502 

DAC TEM2 /WORDS 

00460 

443463 

ISZ PNTRi /INCREMENT FORWARD ADDRESS 

00461 

750001 

CLA ICMA 

00462 

343464 

tad pntr 2 /decrement backward address 

00463 

043464 

DAC PNTR2 

00464 

443440 

ISZ CNTR /DONE ALL? 

00465 

600444 

JMP GNPATR /NO 

00466 

620417 

JMP* PATGEN 

/complement obverse subroutine 

00467 

000000 

MCOMOB 0 
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R 4NHEX 

DTRE15 


00470 

74^001 


CM A : CLL 

00471 

043454 


rue number 

00472 

143456 


OZM OBVERS 

004 73 

77777? 


LAW -6 

00474 

043477 


rue tally 

00475 

203514 


LAC (SEVEN 

00476 

043465 


OAC PNTR 3 

00477 

203454 


LAC NUMBER 

00500 

741000 


SKP 

00501 

74201 0 

LOOP 

RTL 

0050? 

742010 


RTL 

00503 

742010 


RTL 

00504 

043454 


OAC NUMBER 

00505 

523465 


AND* PNTR 3 

00506 

243456 


XOR OBVERS 

00507 

043456 


DAC OBVERS 

00510 

443465 


ISZ PNTR 3 

005H 

203454 


LAC NUMBER 

00512 

443477 


IS? TALLY 

00513 

600501 


JMP LOOP 

00514 

203456 


LAC OBVERS 

00515 

620467 

JMP * MCOMOR 

/Random number generators 

00516 

000000 

RANDl 

0 

00517 

200525 


LAC Rl 

00520 

744010 


R AL ! CLL 

00521 

741400 


SZL 

005?? 

340526 


tad ri+i 

00523 

040525 


DAC Rl 

00524 

620516 


JMP* RANDl 

00525 

000171 

Rl 

171 

00526 

000003 


3 

00527 

000000 

RAnq2 

0 

00530 

200536 


LAC R2 

00531 

744010 


RAL ! CLL 

00532 

741400 


S 2 L 

00533 

340537 


TAD R2+1 

00534 

040536 


DAC R2 

00535 

620527 


JMP* RAND2 

00536 

000015 

R2 

15 

00537 

000003 


3 

00540 

000000 

RAND3 

0 

005 41 

200547 


LAC R3 

00542 

744010 


RAL !CLL 

00543 

741400 


SZL 

0 05 4 4 

340550 


TAD R3+1 

00545 

040547 


DAC R3 

00 5 4 6 

620540 


JMP* RAND3 

00547 

000031 

R3 

31 

00550 

000003 

3 

/randoml y Select a drive 

/STAYS IN THIS ROUTINE UNTIL A 
/DRIVE IS FOUND AND DIRECTION AN 
/POSITION POINTERS ARE GENERATED 

00551 

000000 

RANSEL 

0 



PAGE 


RANDEX 


DTRE15 


P'0'55? 

100527 

JMS RANQ2 /CFT a RANDOM NUMBER 

00553 

503413 

AND SEVEN /MASK OFF 

UNWANTED BITS 

0055* 

043436 

DAC CDRIVE 

/Save 

00555 

744020 

CLL ! RAR 


00556 

742020 

RTR 


00557 

740020 

RAR 


00560 

043506 

DAC UNFUNC 

/drive number 

00561 

203436 

LAC CDRIVE 


00562 

740001 

CM A 


00563 

043440 

DAC CNTR 


00564 

203430 

LAC TWOHUN 

/FIND POSITION 

00565 

443440 

IS? CNTR /OF 


00566 

741000 

SKP /BIT 


00567 

600572 

JMP EXIST /WITH RESPECT 

00570 

744020 

CLL ! RAR /TO 


00571 

600565 

JMP .-4 /ACS 


0057? 

503453 

EXIST AND MSbITS 

/ASK WITH ACS 

00573 

741200 

SNA /DOES UNI 

t exist (Test unit?)? 

00574 

600552 

JMP ranSel + i 

/NO 

00575 

203436 

LAC CDrIvE 

/YES 

00576 

343403 

tad postbl 


00577 

043467 

DAC POSITN 

/FOUM POSITION POINTER 

00600 

203436 

LAC CDRIVE 


00601 

343366 

tad DIRTBL 


0060? 

043445 

DAC DIRECT 

/FORM DIRECTION POINTER 

00603 

203436 

LAC CDRIVE 


00604 

343374 

tad lsttbl 


00605 

043451 

DAC LSTBLK 

/LAST BLOCK WRITTEN POINTER 

00606 

620551 

JMP* RANSEL 
/MOVE DATA SUBROUTINE 
/# OF WORDS IN AC, OR 
/DESTINATION JMS + 2 

IGIN JMS+1 

00607 

000000 

MVDATA 0 


00610 

043440 

DAC CNTR 


00611 

750001 

CLAICMA 


00612 

360607 

Tad* MVDATA 


00613 

040010 

DAC 10 


00614 

440607 

IS? MVDATA 


00615 

750001 

CL A ! CMA 


00616 

360607 

tad* MVDATA 


00617 

040011 

DAC 11 


00620 

440607 

I SH MVDAJA 


00621 

220010 

LAC* 10 


0062? 

060011 

DAC* 11 


00623 

443440 

IS2 CNTR 


00624 

600621 

JMP .-3 


00625 

620607 

JMP* MVDATA 



/compare data subroutine 

/# OF WORDS IN AC, CORRECT ADDRESS 
/QUESTIONABLE AODRESS IN JMS + 2 


IN JMS+1 


00626 

000000 

CODATA 

0 

00627 

043440 

DAC 

CNTR 

00630 

220626 

lac* 

codaTa 

00631 

043463 

DAC 

PNTRl 

00632 

440626 

ISZ 

codata 


/GET CORRECT ADDRESS 



PAGF. 


e R ANDEX DTRE15 


O' ? 6 3 3 

? 2 0 6 ? 6 

lac* 

CODaTa 

/GET 

QUESTIONABLE address 

0 06 3 4 

043464 

DAC 

PNTR2 



00635 

750001 

CLA! 

CM A 



O' 3 6 36 

04344? 

OAC 

COCNTR 

/SET 

NO ERROR FLAG 

3 3 6 3 7 

4406?6 

IS? 

CODATA 



3 0 6 4 3 

223463 

COLOOP 

LAC* 

PNTRl 


0 0 6 4 i 

740001 

C M A 




0 0 6 4? 

343401 

tad 

ONE 



0 06 4 3 

363464 

TaD* 

PNTR2 



0 0 6 4 4 

740200 

S2A 




3 0 6 4 5 

600653 

JMP 

COERRO 



0 0 6 4 6 

443463 

IS? 

P N T R 1 



0 3 6 4 7 

443464 

IS? 

PNTR2 



0 0 6 50 

443440 

IS? 

CNTR 



00 6 51 

600640 

JMP 

COLOOP 



0065? 

620626 

JMP # 

COOATA 



00653 

443442 

COERRO 

IS? COCNTR 

/FIRST ERROR? 

0 0 6 5 4 

600673 

JMP 

COERRl 

/NO 


00655 

1 0 ? 7 ? 6 

JMS 

erstp /stop 

tape 


00656 

707552 

707552 /RE AO 

"A” 


00657 

503402 

AND 

onetho 



00660 

741200 

SNA 

/"ALL 

" mode? 


00661 

600664 

JMP 

.+3 /NO 



00662 

1 02765 

JMS 

TYRALL 

/YES, 

GO TYPE 

00663 

741000 

SKP 




0 0 6 6 4 

102754 

JMS 

TYRDAT 



00665 

203515 

lac 

( MESS5 

/TYPE 

"DATA ERROR" 

00666 

102633 

JMS 

MSPRNT 



00667 

203472 

LAC 

RECORD 



00670 

102670 

JMS 

OPRINT 

/TYPE 

BLOCK NUMBER 

00671 

203516 

LAC 

( MESS 2 



00672 

102633 

JMS 

MSPRNT 

/TYPE 

"BLOCK" 

00673 

750004 

COERRl 

LAS 



00674 

742010 

RTL 




0 0 6 75 

740100 

SMA 

/SHOULD ONLY 4 

BE TYPED 

00676 

600703 

JMP 

.+5 /NO, 

TYPE ALL ERRORS 

00677 

777774 

law 

-4 /YES 

HAVE 


00700 

343442 

tad 

COCNTR 

/4 BEEN 

00701 

740100 

SMA 

/TYPED? 


0070? 

600646 

JMP 

COLOOP +6 

/yes. 

delete rest of test 

00703 

102714 

JMS 

CRLF 



00704 

223463 

LAC« 

PNTRl 



00705 

102670 

JMS 

OPRINT 

/TYPE 

standard 

00706 

203517 

LAC 

(MESS 6 



00707 

102633 

JMS 

MSPRNT 

/AND 

"COR" 

00710 

223464 

LAC* 

PNTR? 



00711 

102670 

JMS 

OPRINT 

/TYPE 

incorrect 

007l? 

203520 

LAC 

( MESS7 



0 0 713 

102633 

JMS 

MSPRNT 

/AND 

"INC" 

00 714 

203464 

LAC 

PNTR 2 



00715 

102670 

JMS 

OPRINT 

/TYPE 

address of incorrect 

00716 

203521 

LAC 

(MESS 8 



00717 

102633 

JMS 

MSPRNT 

/type 

"ADDR" 

00720 

600646 

JMP 

COLOOP +6 




/INITIATE WRITE OPERATIONS 
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RANGE* 

DTRE15 






/GENERATE PATTERN WORDS AND 





/BLOCK NUMBERS 




A0721 

203405 

WRITE1 LAC 

RBFLOC 



0 07 22 

040010 

DAC 10 /SET 

UP 10 FOR STORAGE 



011723 

223451 

lac* lstblk 




00724 

060010 

DAC* 10 /SET 

UP FIRST WORD 



0 0 7 25 

203455 

LAC NUM8LK 




00726 

740001 

CM A 




00727 

343401 

tad one 




00730 

363451 

tad* lstblk 

/LAST BLOCK+1 



00731 

043472 

DAC RECORD 




0073? 

776700 

LAW -1100 




00733 

343472 

tad record 




00734 

740100 

SMA /REWIND UNIT? 



00735 

601034 

JMP REWCK /YES 




00736 

203472 

lac record 




00737 

060010 

DAC* 10 




00740 

100540 

JMS RAND3 




00741 

060010 

OAC* 10 /FIRST RANDOM WORD 



00742 

100516 

JMS RAND1 




00743 

060010 

DAC* 10 /SECOND RANQOM WORD 



00744 

1 00527 

JMS RAND2 




00745 

503425 

AND THREE 




00746 

751200 

SNA ! CL A /FORM DIRECTION 



00747 

740001 

CM A 




00750 

043446 

DAC DIRFLG 

/and store 



00751 

343407 

tad rbufst 




0075? 

040010 

DAC 10 




00753 

0400H 

DAC 11 /FOrM FIRST WORD 



00754 

754002 

CLA ; CLL • CML 

/INOICATE 



00755 

740020 

RAR /BACKWARD 



00756 

360010 

tad* 10 /OR 

2ND WORD 



00757 

060011 

DAC* 11 /INOICATE FORWARD 



00760 

100417 

JMS patgen 

/GENERATE 256 

word pattern 

00761 

203455 

LAC NUMBLK 




00762 

043475 

DAC SAVNUM 

/SAVE NUMBER OF BLOCKS 


00763 

203455 

CORTlR LAC 

NUMBLK 



00764 

740001 

CM A 




00765 

043472 

DAC RECORD 




00766 

203446 

LAC DIRFLG 




00767 

740200 

S2A /BACKWARD IS 



00770 

203472 

Lac RECORD 

/LAST BLOCK + 

number of 

BLOCKS 

00771 

363451 

tad« lstblk 



BE WRITTEN 

0077? 

043472 

DAC RECORD 

/TO FIND FIRST 

block to 


/TEST for WRITE 

OATa CONTINUOUS MODE 





/IF NUMBER OF BLOCKS = INC OF 3 



00773 

601332 

JMP WDCMOD 




00774 

102353 

JMS SEARCH 




00775 

203370 

WRT1A LAC FIVTHO 

/search to write data 


0 0 7 7 6 

707544 

707544 /XOR 

INTO "A" 



00777 

777400 

LAW -400 




01000 

040030 

OAC WC /SET 

UP wc 



01001 

203405 

LAC RBFLOC 




01002 

040031 

DAC CA /AND 

CA 



01003 

101701 

JMS WATINT 

/WAIT 
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RANPEX 


DTRE15 


0 l ? 0 4 

000100 


1 00 

/OTP 



01005 

601 042 


JMP 

WSTERR 



01006 

200030 


LAC 

WC 



0100 7 

744200 


SZ A ! 

CLL /WC = 

0? 


01010 

601042 


JMP 

wsterr 


/NO 

0 1 0 lt 

?03446 


LAC 

DIRFLG 



0101? 

343472 


tad 

RECORD 



01013 

741100 


SPA 




0 1 0 1 4 

754002 


CLA ! CLL ! CMl 



01015 

043472 


OAC 

RECORD 



01016 

750400 


SNL! 

CLA /RECORD - 

1? 

0 1 0 1 7 

443472 


ISZ 

RECORD 


/NO ♦ 1 

01020 

443455 


ISZ 

NUMBLK 


/DONE ALL BLOCKS? 

01021 

600776 


JMP 

WRTIa+1 


/NO, DO ANOTHER 

01022 

203472 

WQ I NC 

LAC 

record 



01023 

063467 


DAC* 

■ POsIt n 


/NEW POSITION 

01024 

203446 


LAC 

DIRFLG 



01025 

063445 


DAC-a 

. DIRECT 


/NEW DIRECTION 

01026 

204001 


LAC 

RANBFR+i 



01027 

503373 


AND 

INDEP 



01030 

063451 


OACfl 

■ lstblk 


/NEW LAST BLOCK 

01031 

203432 


LAC 

TYTHOU 



01032 

707544 


707544 / X OR 

INTO 

"a" (stop tape) 

01033 

600123 


JMP 

rdswch 


/get c(sr) then select aga: 

01034 

100540 

rewck 

JMS 

RAND3 /GET 

Random number 

01035 

741100 


SPA 

/+ OR 

- ? 


01036 

600361 


Jmp 

rEwdrv 


/(-) 

01037 

143472 


D?M 

RECORD 


/READ BLOCK 0 

01040 

143446 


DZM 

DIRFLG 


/forward 

01041 

600211 


JMP 

rdtab 



01042 

102726 

wsterr 

JMS ERSTP 

/stop tape - leave flags 

01043 

102776 


JMS 

tywdat 



01044 

203472 


LAC 

RECORD 



010 4 5 

102670 


JMS 

OPR I NT 


/TYPE BLOCK NUMBER 

01046 

203522 


LAC 

(MESS2 



01047 

102633 


JMS 

MSPRNT 


/TYPE "BLOCK** 

010 50 

203475 


LAC 

SAVNUM 



01051 

043455 


DAC 

NUMBLK 



01052 

707572 


707572 /READ 

"B" 


01053 

102670 


JMS 

OPRINT 


/PRINT C ( B ) 

01054 

203523 


LAC 

(MESS3 



01055 

102633 


JMS 

MSPRNT 


/type "st a tus r** 

01056 

200030 


LAC 

WC 



01057 

102670 


JMS 

OPRINT 


/PRINT C(WC) 

010 60 

203524 


LAC 

(MESS4 



01061 

102633 


JMS 

MSPRNT 


/TYPE ’’WC" 

0106? 

750004 


LAS 




01063 

751100 


SPA ! 

CLA /STOP 

ON 

ERROR? 

01064 

740040 


XX 

/YES 



0 1 065 

443457 


ISZ 

PASFLG 


/2ND ERROR? 

01066 

6003*1 


JMP 

ReWdRV 


/yes, rewind 

01067 

600763 


JMP 

CQRTIR 


/no 



/read 

entire sequence 

OF BLOCKS 



/as originally written 

01070 

204000 

RDSEQ 

lac 

ranbfr 


/GET LOWEST BLOCK 
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RANDEX 

DTRE15 



0 .1 0 7 1 

503373 

AND 

1 NDEP 


^1^72 

043472 

DAC 

RECORD 


01/73 

204001 

lac 

RANBFR+i 

/GET LAST BLOCK+l 

017 7 4 

503373 

AND 

I NDEP 


01075 

043455 

0 AC 

numblk 

/make number of blocks 

01076 

203472 

LAC 

RECORD 


01077 

740001 

CMA 



01100 

343455 

TAD 

numblk 


01101 

043455 

n a c 

NUM8LK 

/SET UP NUMBLK 

01102 

100516 

JMS 

RANDl /GET 

a random 

01103 

755100 

SPA ICLA.’CLL 

/READ FORWARD? 

01104 

740003 

CMAlCML /NO 

BACKWARD, AC= -0, L = i 

01105 

043446 

DAC 

OIRFLG 


01106 

203472 

lac 

RECORD 


01107 

741400 

SZL 



01110 

343455 

TAD 

numblk 


01111 

043472 

DAC 

RECORO 


01112 

203455 

Lac 

numblk 

/make number of blocks negative 

01113 

740001 

CMA 



01114 

043455 

DAC 

NUMBLK 


01115 

100253 

JMS 

RDOATa 

/READ FIRST BLOCK 

01116 

600272 

JMP 

REREAD 

/STATUS ERROR IN READ 

01117 

443455 

RORUF1 

IS? 

NUMBLK /READ ALL BLOCKS? 

01120 

601123 

JMP 

.+3 /NO 


01121 

203432 

LAC 

T Y THOU 

/GET CONSTANT TO STOP TaPE 

01122 

601130 

JMP 

. +6 


01123 

203365 

LAC 

BF2LOC 


01124 

040031 

DAC 

CA /SET 

UP CA 

01125 

777400 

LAW 

-400 


01126 

040030 

DAC 

WC /AND 

WC 

01127 

750000 

CLA 



01130 

707544 

707544 /XOR 

INTO » A " 

01131 

777400 

LAW 

-400 


01132 

100626 

JMS 

CODATa 

/COMPARE DATA 

01133 

004000 

ranbfr 


01134 

004400 

BUFFRS 


01135 

443442 

ISZ 

COCNTR 

/ANY DATA ERRORS? 

01136 

600325 

JMP 

rereoa 

/YES, READ OTHER DIRECTION 

^1137 

203455 

LAC 

numblk 


01140 

741200 

SNA 

/DONE COMPLETE SERIES 

01141 

601214 

JMP 

NDOFRD 

/YES 

01142 

203446 

LAC 

OIRFLG 

/NO 

01143 

741200 

SNA 



01144 

343401 

TAD 

ONE 


01145 

343472 

TAD 

RECORD 

/LAST BLOCK +1 OR -1 

01146 

043472 

dac 

RECORD 


0114 7 

101701 

JMS 

watint 

/WAIT 

01150 

000100 

100 

/OTF 


01151 

600272 

JMP 

REREAD 

/STATUS ERROR, REREAD 

01152 

200030 

LAC 

WC 


01153 

740200 

SEA 

/WC 

= 0? 

0115 4 

600272 

JMP 

reread 

/NO, REREAD 

01155 

443455 

ISE 

numblk 

/DONE ALL READS? 

01156 

601161 

JMP 

.+3 /NO 


01157 

203432 

LAC 

TYTHOU 

/YES, gET READ TO 
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01160 

601166 

JMP 

. +6 ' /STOP TAPE 

01161 

203364 

t. AC 

RFlLOC 


01 1 6? 

040031 

n a c 

CA /SET 

UP CA 

f 16 3 

777400 

LAW 

-400 


01164 

040030 

OAC 

WC /AND 

WC 

011 65 

750000 

CLA 



011 66 

707544 

707544 /xOR 

INTO A 

01167 

777400 

LAW 

-400 


01170 

\ 00626 

JMS 

codata 

/COMPARE DATA 

01171 

004000 

RANBFR 


0117? 

005001 

RUFFRS+401 


01173 

443442 

IS? 

COCNTR 

/ANY COMPARE ERRORS 

01174 

600325 

JMP 

rereda 

/YES, READ OPPOSITE DIRECTION 

011 75 

203455 

LAC 

numblk 


01176 

741200 

SNA 

/READ AND COMPARE ALL? 

01177 

601214 

JMP 

nqofro 

/YES 

01200 

203446 

LAC 

OIRFLG 

/NO 

01201 

741200 

SNA 



01202 

343401 

tad 

ONE 


01203 

343472 

tad 

RECORD 

/LAST BLOCK +i OR -l 

01204 

043472 

OAC 

RECORD 


01205 

101701 

JMS 

watint 

/WAIT 

01206 

000100 

1 00 

/DTF 


01207 

600272 

JMP 

REREAD 

/STATUS ERROR, REREAD 

01210 

200030 

lac 

WC 


01211 

740200 

SZA 

/WC 

= 0? 

01212 

600272 

JMP 

reread 

/NO, REREAD 

01213 

601H7 

JMP 

rdbufi 

/compare first buffer 

01214 

203472 

ndofrd 

LAC 

RECORD 

01215 

063467 

D AC« 

• POSITN 

/NEW POSITION 

01216 

203446 

LAC 

OIRFLG 


01217 

063445 

OAC« 

DIRECT 

/NEW DIRECTION 

01220 

600123 

JMP 

ROSWCH 

/GO BACK FOR ANOTHER 



/READ 

DATA CONTINUOUS MODE 



/TWO BLOCKS AND 

compare data read 

01221 

203446 

RQCMOD 

LAC 

DIRFLG 

01222 

740200 

SZA 

/FORWARD? 

01223 

601232 

JMP 

.+7 /NO 


01224 

203472 

LAC 

RECORD 


01225 

740001 

CMA 



01226 

363451 

T AD* 

LSTBLK 

/BLOCK +1 WRITTEN? 

01227 

740200 

SZA 



01230 

601235 

JMP 

. *5 


01231 

600211 

JMP 

RDTAB /BLOCK NOT WRITTEN, READ ONLY i 

0123? 

203472 

LAC 

RECORD 


01233 

741200 

SNA 



01234 

600211 

JMP 

RDTAB /BLOCK 0 BACKWARDS, READ ONLY i 

01235 

102353 

JMS 

SEARCH 

/FIND FIRST BLOCK 

0l?36 

203427 

LAC 

trteth 

613000 

01237 

707544 

707544 /XOR 

INTO "A" (CHANGED TO READ CONT) 

01240 

777000 

law 

-1000 


01241 

040030 

DAC 

WC /SFt 

UP WC AnD 

01242 

203364 

LAC 

BFlLOC 


01243 

040031 

DAC 

CA /CA 

FOR 2 BLOCKS 

01244 

101701 

JMS 

watint 

/wait for end of transfer 



RANOEX 


DTRE15 
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01245 

000100 

100 

/DTE 



012 4 6 

601314 

JMP 

RDCERR 


/error, see which block 

012 4 7 

200033 

LAC 

WC 



01260 

740200 

S2A 

/WC = 

0? 


01251 

600272 

JMP 

REREAD 


/no 

0 1 ? 5 2 

203432 

LAC 

TYTHOU 


/GET "STOP" 

01253 

707644 

707544 / XOR INTO 

"A" 

01254 

203446 

lac 

DIRFLG 



01255 

741200 

SNA 




01256 

343401 

TAD 

one 



01257 

343472 

TAD 

RECORD 



01260 

043472 

DAC 

RECORD 



01261 

100400 

JMS 

PREGEN 


/verify last 

01262 

777400 

LAW 

-400 /BLOCK 



01263 

100626 

JMS 

CODATA 


/FIRST 

01264 

004000 

RANBFR 



01265 

005000 

BUFFRS+400 



01266 

443442 

IS? 

COCNTR 


/ANY data ERRORS 

01267 

600325 

JMP 

REREDA 


/yes, reread 

01270 

750001 

CLA ! 

CMA 



01271 

343365 

tad 

8F2L0C 



0127? 

040031 

DAC 

CA 



01273 

100400 

JMS 

PREGEN 



01274 

203446 

LAC 

DIRFLG 



01275 

741200 

SNA 




01276 

343401 

tad 

ONE 



01277 

740001 

CM A 




01300 

343401 

tad 

ONE 



01301 

343472 

tad 

RECORD 



01302 

043472 

DAC 

RECORD 



01303 

777400 

LAW 

-400 



01304 

100626 

JMS 

COOATA 



01305 

004000 

RANBFR 



01306 

004400 

RUFFRS 



01307 

443442 

IS? 

COCNTR 


/ANY DATA ERRORS? 

01310 

600325 

JMP 

REREDA 


/yes, reread 

01311 

203472 

LAC 

RECORD 


/NO, SET NEW 

01312 

063467 

DAC fl 

► POSITN 


/POSITION 

01313 

600123 

JMP 

RDSWC H 


/qo back for another job 

01314 

200030 

rDCErr 

LAC WC 



01315 

741200 

SNA 

/ERROR 

IN 

2ND BLOCK? 

01316 

601324 

JMP 

.♦6 /YES, 

COUNT BLOCK 

01317 

740001 

CMA 




01320 

343401 

TAD 

ONE 



01321 

340777 

TAD 

WR T 1 A + 2 


/-400 (OCT) 

01322 

040030 

DAC 

WC 



01323 

600272 

JMP 

REREAD 


/TYPE STATUS ERROR 

013 24 

203446 

LAC 

DIRFLG 



01325 

741200 

SNA 

/BACKWARD 

(-1) 

01326 

343401 

tad 

ONE /FORWARDS 

(+1 

01327 

34347? 

tad 

RECORD 



01330 

043472 

dac 

RECORD 



01331 

600272 

JMP 

REREAD 




/WRITE DATA continuous MOOE IF 

/NUMBER OF BLOCKS IS AN INCREMENT OF 3 
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PM 33? 

1 43505 

WDCMOD 

D?M TRECTR 


01333 

?03455 

LAC 

NUMBLK 


013 3 4 

343425 

tao 

THREE 


01335 

741200 

SNA 

/AN INCREMENT OF 3? 

01336 

601343 

JMP 

SWCMOD 

/YES, WRITE CONT, 

01337 

740100 

SMA 

/GONE PAST 

0? 

013 4 0 

600774 

JMP 

WRT i A-l 

/YES, NOT INC. OF 3 

0 1 3 4 1 

443505 

IS? 

TRECTR 

/NO, COUNT 1 

0134? 

601334 

JMP 

wocmoq +2 

/and repeat 

01343 

203505 

SWCMOO 

lac TRECTR 


013 4 4 

740001 

C M A 



01345 

043505 

n a c 

TRECTR 


01346 

777000 

L A W 

-1000 /MAKE PATTERN 

01347 

100607 

JMS 

mvdaTa 

/ 3 BUFFERS 

01350 

004000 

RANBFR /LONG 


01351 

004400 

RUFFRS 


0135? 

102353 

JMS 

search 


01353 

203367 

LAC 

F IFTHO 

/15000 (SEARCH TO WRITE CONT > 

01354 

707544 

SWCMDL 

707544 

/XOR INTO "A" 

01355 

776400 

LAW 

-1400 /SET UP WC 


01356 

040030 

dac 

WC /FOR 3 BLOCKS 

01357 

203405 

LAC 

RBFLOC 


01360 

040031 

D AC 

ca /and ca 


01361 

101701 

JMS 

WATINT 

/WAIT 

01362 

000100 

100 

/DTF 


01363 

601405 

JMP 

WOCERR 

/NOT NORMAL INTERRUPT 

01364 

200030 

LAC 

WC 


01365 

740200 

S2A 

/WC = 0? 


01366 

601405 

JMP 

WOCERR 

/NO 

01367 

203446 

LAC 

OIRFLG 


01370 

754200 

SZA ! 

I CL A ! CLL 

/FORWARD? 

01371 

740002 

CML 

/NO, SET LINK 

0137? 

343425 

TAD 

THREE /GET 3 


01373 

740400 

SNL 

/backward 


01374 

601377 

JMP 

.+3 /NO 


01375 

740001 

CM A 

/YES, -3 


01376 

343401 

TAD 

ONE 


01377 

343472 

TAD 

RECORD 


01400 

043472 

DAC 

RECORD 


01401 

750000 

CLA 



01402 

443505 

ISZ 

TRECTR 

/DONE ALL 

01403 

601354 

JMP 

SWCMDL 

/NO, DO NEXT 3 

01404 

601022 

JMP 

WDINC /YES 


01405 

143505 

wqcerr 

DZM TRECTR 


01406 

200030 

LAC 

WC 


01407 

740001 

CM A 



01410 

343401 

TAD 

ONE / -WC 


01411 

340777 

tad 

WRTlA+2 

/ -400 (OCT) 

01412 

741100 

SPA 



01413 

601416 

JMP 

. +3 


01414 

443505 

ISZ 

TRECTR 


01415 

601411 

JMP 

. -4 


01416 

203446 

LAC 

OIRFLG 


01417 

754200 

S?A ! 

CL A ! CLL 

/FORWARD? 

01420 

740002 

CML 

/NO, BACKWARD, MAKE -1 OR -2 
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01421 

2035^5 

LAC TRECTR 



0142? 

740400 

SNL 



01423 

601426 

J MR .+3 



01424 

740001 

cma 



01425 

343401 

TAD ONE 



01426 

343472 

TAD RECORD 



01427 

043472 

DAC RECORD 

/BLOCK IN ERROR 


01430 

601042 

JMP wsterr 

/TYPE OUT WRITE 

error 



/READ ALL ROUTINF 




/REV CKSM, DAU, 

and cksm are Read 




/cksms a«e generated and tested 


01431 

203446 

rallts LAC 

DIRFLG 


0143? 

741200 

SNA /BACKWAROS? 


014 33 

343401 

tad one /no. 

FORWARD 


01434 

740001 

CMA 



01435 

343401 

tad one / •*■ i 

FOR RACKWaRD, -1 FOR FORWARD 

01436 

343472 

tad record 



01437 

043472 

O AC RECORD 



01440 

741100 

SPA 



01441 

600123 

JMP RDSWCH 

/CAN'T DO 0 


01442 

343376 

tad mblock 



01443 

750100 

SMA ! CL A 



01444 

600145 

JMP MOEPRl 

/OR 1100 




/find the rlock 

AND CHANGE to READ ALL 




/clear read all 

ERROR FLAG 


0 1 4 4 5 

1 4 3 4 7 1 

RaEELG 

/CLEAR Read ALL 

error flag 

01446 

102353 

jms search 

/FIND BLOCK 


01447 

707554 

707554 /Clear dte and ee 


01450 

203446 

lac OIrELG 



01451 

741200 

SNA 



014 5 2 

343401 

tad one 



01453 

343472 

tad record 



01454 

043472 

DAC RECORD 



01455 

707561 

707561 /SKIP ON ERROR FLAG 


01456 

741000 

SKP 



01457 

601 556 

JMP raserr 

/dectape error 


01460 

707601 

707601 /SKIP ON DECTAPE FLAG 


01461 

601455 

JMP .-4 /NO 

FLAGS, CHECK AGAIN 


01462 

203435 

lac blkend 

/GET CURRENT DECTAPE BLOCK NUMBER 

01463 

740001 

CMA 



01464 

343401 

tad one 



01465 

343472 

Tad RECORD 



01466 

750200 

SZa!CLA /IS 

it the one we are looking for? 

01467 

601556 

JMP RASERR 

/no, error 




/CHANGE to read 

ALL CONTINUOUS 


0l 4 70 

?0343l 

LAC TWVTHO 

/SEARCH TO READ 

ALL CONT 

01471 

707544 

707544 / XOR 

INTO "A" 


01472 

777374 

LAW -404 



01473 

040030 

DAC WC /SET 

WC FOR 404 WORDS 


01474 

203364 

LAC BFlLOC 



01475 

040031 

DAC CA /SET 

CA 


01476 

101701 

JMS WATINT 

/WAIT 


01477 

000100 

100 /OIF 



01500 

601657 

JMP ERRRAR 

/READ ALL STATUS 

error 

01501 

200030 

LAC WC 
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(*150? 
01503 
0150 4 

01505 

01506 
015 0 7 

01510 

01511 

01512 

01513 

01514 

01515 

01516 

01517 

01520 

01521 
0152 ? 

01523 

01524 

01525 

01526 

01527 

01530 

01531 

01532 

01533 

01534 

01535 

01536 

01537 

01540 

01541 

01542 

01543 

01544 

01545 

01546 

01547 

01550 

01551 

01552 

01553 

01554 

01555 

01556 

01557 


01560 

01561 

01562 

01563 

01564 


RANOEX 

OT RE 1 6 



740200 

SZA 

/W c = 

0 ? 

601 657 

JMP 

ERRRaR 

/NO 

? 0 3 4 3 2 

LAC 

tythou 

/STOP TAPE 

7 0 7 54 4 

7075 

44 /XOR 

INTO "A" 


0GfMe r 

AT e CKSMS A N n T E ST SUm = 00 

203404 

LAC 

RAQLqC 


040010 

0 AC 

10 /SF TUP 10 

777400 

LAW 

-400 


043440 

OAC 

C N T R /AND 

COUNTER FOR 

143437 

OZM 

CKSUMR 

/PROCESSING, ZERO checksui 

204402 

LAC 

RUFFRS+2 


503421 

AND 

SEVSEV 


043473 

OAC 

REVCHK 

/SAVE REVERSE CHECK 

220010 

LAC* 

10 /GET 

NEXT DaTaWORD 

101560 

jms 

XORSUM 

/XOR INTO CHECKSUM 

443440 

isz 

CNTR /DONE 

? 

601516 

JMP 

.-3 /NO 


203437 

lac 

CKSUMR 

/YES, GET final 

503421 

AND 

SEVSEV 

/MASK 

043444 

OAC 

OATASM 

/and save 

770000 

LAW 

10000 /LOAD 

AC WITH 770000 

520010 

ANO* 

10 /COMB 

INE WITH FORWARD CKSM 

043450 

DAC 

FWOCHK 

/and save 

101560 

JMS 

XORSUM 

/COMBINE FWOCHK 

203473 

LAC 

REVCHK 


101560 

JMS 

XORSUM 

/COMBINE WITH REVCHK 

203437 

LAC 

CKSUMR 


740001 

CM A 



503421 

AND 

SEVSEV 


740200 

SZA 

/IS RESULT 0? 

601602 

JMP 

errcks 

/no, error 

203472 

RADCHK 

LAC RECORD 

063467 

OAC* 

POSITN 

/update position table 

750001 

CL A ! 

cma 


340031 

TAD 

CA 


040031 

OAC 

CA /SUBTRACT 1 FrOM CA 

100400 

JMS 

pregen 

/GENERATE PATTERN 

777400 

LAW 

-400 /COMPARE AGAINST 

100626 

JMS 

COOATA 

/pattern obtained 

004000 

RANBFR /FROM 

tape 

004403 

PUFFRS+3 


443471 

ISZ 

RAEFLG 

/ANY read ALL ERRORS 

443442 

ISZ 

COCNTR 

/no, any data errors 

6003?5 

JMP 

REREDA 

/YES, YES 

600121 

JMP 

ROSWCH-2 

/NO, GO BACK 

143457 

RASERR 

OZM PASFLG 

602562 

JMP 

srherr 



/TC02 

ranoom exerciser - tape 2 


/FORM 

6-8 1 T XOR OF AC AND CKSUMR 


/Save 

RESULTS IN 

CKSUMR 

000000 

XORSUM 

0 


740001 

CM A 



043501 

DAC 

TEM1 


777775 

LAW 

-3 


043477 

OAC 

TALLY 
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01565 

203501 

LAC 

TEMi 



01566 

744010 

RAL! 

CLL 



01567 

742010 

RTL 




01570 

742010 

rtl 




01571 

742010 

RTL 




01572 

043501 

DAC 

TEMi 



01573 

503421 

AND 

SEVSEV 



01574 

243437 

X OR 

CKSUMR 



01575 

043437 

DAC 

CKSUMR 



01576 

203501 

LAC 

TEMi 



01577 

443477 

IS? 

TALLY 



016 00 

601567 

JMP 

. -11 



01601 

621560 

JMP o 

XORSUM 





/CHECKSUM ERROR 

TYPEOUT 


01602 

102765 

errcks 

JMS 

tyrall 

/type out HEADER 

01603 

203472 

lac 

RECORD 



01604 

102670 

jms 

OPRINT 

/TYPE 

OUT BLOCK number 

01605 

203525 

LAC 

(MESS2 



01606 

102633 

JMS 

msprnt 

/type 

"BLOCK" 

01607 

203526 

LAC 

(MESS9 



01610 

102633 

JMS 

MSPRNT 

/TYPE 

"CKSUM ERROR" 

01611 

102714 

JMS 

CRLF 



01612 

203473 

LAC 

REVCHK 



01613 

102670 

JMS 

OPR I NT 

/type 

OUT revcheck 

01614 

203527 

LAC 

(MESS10 



01615 

102633 

JMS 

MSPRNT 

/type 

"REV" 

0 1 6 1 6 

101647 

JMS 

CKSTYP 

/type 

"CHKSUM" 

01617 

102714 

JMS 

CRLF 



01620 

203444 

lac 

datasm 



01621 

102670 

JM S 

OprINt 

/TYpE 

data sum 

01622 

760240 

LAW 

240 



01623 

102661 

JMS 

TYPE 



01624 

103030 

JMS 

tydata 



01625 

101647 

JMS 

CKSTYP 

/type 

"CHKSUM" 

01626 

101653 

JMS 

CALCTY 



01627 

102714 

JMS 

CRLF 



01630 

203450 

LAC 

fwdchk 



01631 

102670 

JMS 

OPRINT 

/TYPE 

FORWARD CHECKSUM 

01632 

101647 

JMS 

CKSTYP 

/type 

"CHKSUM" 

01633 

102714 

JMS 

CRLF 



01634 

203437 

LAC 

CKSUMR 



01635 

740001 

CMA 




01636 

503421 

AND 

SEVSEV 



01637 

043437 

DAC 

CKSUMR 



01640 

102670 

JMS 

OPR I NT 

/TYPE 

calculated cksm 

01641 

101653 

JMS 

CALCTY 



01642 

203530 

LAC 

(MESSll 



01643 

102633 

JMS 

MSPRNT 

/type 

"L, P.B." 

01644 

750001 

CLA! 

CMA 



01645 

043471 

DAC 

RAEFLG 



01646 

601540 

JMP 

RADCHK 



01647 

000000 

CKSTYP 

0 



01650 

203531 

LAC 

(MESS12 



01651 

102633 

JMS 

MSPRNT 



01652 

621647 

JMPfl 

■ CKSTYP 
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016 5 3 

000000 

CALCTY 

0 



016 54 

2 0 3 5 3 2 

L AC 

( M E S S 1 3 



01655 

102633 

JMS 

MSPRNT 



016 56 

621653 

JMP* 

CALCTY 





/READ 

all status error typeout 

01657 

102726 

ERRRAR 

JMS erstp 

/STOP 

tape 

016 6 0 

102765 

JMS 

tyrall 

/TYPE 

HEADER 

01661 

203472 

lac 

record 



01662 

102670 

JMS 

OPR 1 NT 

/TYPE 

OUT BLOCK 

01663 

203533 

LAC 

( MESS2 



016 6 4 

102633 

JMS 

MSPRNT 

/type 

"BLOCK” 

016 6 5 

707572 

707572 /RFAD " 8 " 



01666 

102670 

JMS 

opr int 

/type 

OUT b 

01667 

203534 

LAC 

(MESS3 



01670 

102633 

JMS 

msprNt 

/TYpE 

"STATUS B 

01671 

200030 

LAC 

wc 



01672 

102670 

JMS 

OPR INT 

/TYPE 

OUT WORD 

01673 

203535 

lac 

( MESS4 



016 7 4 

102633 

JMS 

MSPRNT 

/type 

" W , c . " 

01675 

750004 

LAS 




01676 

751100 

SPAJCLA /STOP ON 

ERROR? 


01677 

740040 

XX 

/YES 



017 0 0 

600361 

JMP 

REWORV 




01701 

01702 


000000 

203576 


/Wait for interrupt routine 

/SYNCHRONIZE PROCESSOR TESTS 

watint 0 

LAC ( JMP IRECD 


01703 040001 

01704 777774 

01705 043507 

01706 707552 

01707 503416 

01710 740200 

01711 601714 

01712 777750 

01713 043507 

01714 443447 

01715 601721 

01716 1020*5 

01717 700042 

01720 602046 

01721 143447 

01722 443460 

01723 741000 

01724 102015 

01725 200000 

01726 063461 

01727 443461 

01730 200000 

01731 740010 

01732 203433 

01733 700042 

01734 620000 

01735 043433 


DAC 1 

LAW -4 

DAC WTCNTR /INITIALIZE COUNTER FOR 5 SECONDS 

707552 /READ "A” 

AND SEVEN+3 /7000 

S2A /IS FUNCTION "MOVE" 


RESETD 


JMP 

.+3 /NO, 

5 SEC. OK 


LAW 

-30 /change counter 


DAC 

wtcntr 

/TO 45 

SEC . 

ISZ 

erswat 

/FIRST 

program wait? 

JMP 

resetd 

/NO, RESTORE AC AND 

JMS 

SETIDX 

/yes. 

set up 

ION 

/turn on pi 


JMP 

ISZTST 

/go to 

E IRST TEST 


DZM 

FRSwAT 

/INDICATE 

ISZ 

PICNTR 

/COUNT 

PI counter 

SKP 

/NOT 

zero 


JMS 

SETIDX 

/ZERO 


LAC 

0 




L 


NOT PIRSt WAIT 


DAC* PIDExl 


/SAVE OLD PC 


ISZ PIDEXi 
LAC 0 

RAL /RESTORE LINK 

lac accum /restore ac 

ION /TURN ON PI 

JMP* 0 /EXIT 

/interrupt returns here 

IRECD DAC ACCUM /SAVE AC 



RANOEX 


DTRE15 
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01?36 

707601 

707601 /SKIP 

ON 

DTF 

A 1 7 3 7 

741000 

SKP /NONE 



0174? 

601743 

JMP .+3 /DFCTAPE 

FLAG 

01741 

707561 

707561 /SKIP 

ON 

ERROR FLAG 

01742 

601 762 

JMP NDTSKP 


/NO DECTaPE flags 

017 4 3 

707572 

707572 /READ 

” 8 

ft 

017 4 4 

043476 

dao sbreco 


/SAVE B 

01745 

221701 

LAC* WATINT 



01746 

740001 

cma /compare 

flags set 

01747 

503476 

and sbrecd 


/against flags allowed 

01750 

741200 

SNA /ANy 

ILLEGAL? 

01751 

441701 

is? watint 


/no, increment twice 

01752 

441701 

is? watint 


/Yes, increment once 

01753 

201701 

lac watint 



01754 

063462 

DAC* PIDEX2 


/Save c(Watint) 

01755 

443462 

IS? PIDEX2 


/MORE POINTER 

01756 

203435 

LAC BLKFND 


/clean up 

01757 

503373 

and indep 


/block NUMBER 

01760 

043435 

DAC BLKFND 


/from TAPE 

017 61 

621701 

JMP* watint 


/EXIT 



.EJECT 
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0176? 

102726 

notskr 

JMS ERSTP 

/STOP 

TAPE 


01763 

203537 

LAC 

( MESS14 





01764 

1 02633 

JMS 

MSPRNT 


/TYPE 

"PI" 


01765 

602005 

JMP 

PTSTNS 





01766 

000000 

PTSTNO 

0 





01767 

443507 

ISZ 

wtcntr 


/waited long 

enough? 

01770 

621766 

JMP* 

ptstnd 


/no. 

DO NEXT 

test 

01771 

700012 

I OF + 10 /YES, 

TURN OFF 

PI 


0177? 

707601 

707601 /SKIP 

ON 

DTE 



01773 

741000 

skp 






01774 

601777 

JMP 

. +3 





01775 

707561 

707561 /SKIP 

ON 

ERROR 

f l ag 


01776 

740001 

cma 

/NO FLAGS 

, STORE -1 


01777 

043476 

dac 

sbrecd 


/OR 0 

IF ANY 

FLAG 

02000 

• 102726 

JMS 

FRSTP /STOP 

tape 



02001 

203540 

LAC 

(MESS15 





02002 

102633 

JMS 

MSPRNT 


/TYPE 

"NO PI" 


02003 

443476 

ISZ 

sbrecd 


/ANY 

DECTaPE 

FLAGS 

02004 

602007 

JMP 

PTSTNS+2 


/yes 



02005 

20?54l 

PTSTNS 

LAC ( MFSS1 6 



02006 

102633 

JMS 

MSPRNT 


/type 

"NO" 


02007 

203542 

lac 

(MESS17 





02010 

102633 

JMS 

MSPRNT 


/TYpE 

"DECTAPE SKIp" 

02011 

441701 

IS? 

watint 





0201? 

750001 

CLA ! 

CMA 





02013 

043447 

dac 

FRSWAT 





02014 

621701 

JMP* 

■ WATINT 





02015 

000000 

SETIOX 

0 





02016 

777772 

LAW 

-6 





02017 

043460 

dac 

PICNTR 





02020 

202025 

LAC 

PITBL 






02021 

043461 

DAC 

PIOEXi 





02022 

202045 

LAC 

PIRTBL 





02023 

043462 

DAC 

PIDEX2 





02024 

622015 

JMP* 

SETIOX 





02025 

002026 

PITBL .+1 






02045 


.LOC 

PITBL+20 




02045 

002035 

PIRTBL 

.-10 







/processor tests, 

RUN 

while 

waiting 

FOR INTERRUPT 



/ISZ test - 2.6 SECONDS 



02046 

750001 

ISZTST 

CLA !CMA 




02047 

042204 

DAC 

TEST5 





02050 

142201 

OZM 

TEST2 





02051 

142200 

DZM 

TESTl 





02052 

442200 

ISZ 

TESTi 





02053 

442201 

ISZ 

TEST2 





02054 

602052 

JMP 

.-2 





02055 

202201 

LAC 

TEST2 





02056 

740200 

SZA 






02057 

740040 

XX 






02060 

750001 

CLA! 

CMA 





02061 

342200 

tad 

TESTi 





02062 

740200 

SZA 






02063 

740040 

XX 






02064 

442204 

ISZ 

TEST? 
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02065 

741000 

SKP 


02066 

602051 

JMP 

ISZTST+3 

02067 

101766 

JMS 

PTSTND 



/ROTATE 1 TEST - 3.9 SECONDS 

02070 

202201 

ROTiTS 

LAC TEST2 

02071 

744002 

CLL 

!CML 

02072 

740020 

RAR 


02073 

740010 

RAL 


0 2 0 7 4 

740400 

SNL 


02075 

740040 

XX 


02076 

740001 

CM A 


020 77 

343401 

tad 

ONE 

02100 

342201 

tad 

TEST 2 

02101 

740200 

SZA 


02102 

740040 

XX 


02103 

442201 

ISZ 

TEST2 

02104 

602070 

JMP 

ROTiTS 

02105 

101766 

JMS 

PTSTND 



/rotate 2 test - 3.9 seconds 

02106 

202201 

ROT 2 TS 

LAC TEST2 

02107 

744000 

CLL 


02110 

742010 

RTL 


02111 

742020 

RTR 


02112 

741400 

SZL 


02113 

740040 

XX 


02114 

740001 

CM A 


02115 

343401 

TAD 

ONE 

02116 

342201 

tad 

TEST2 

02117 

740200 

SZA 


02120 

740040 

XX 


02121 

442201 

ISZ 

TEST2 

0212? 

602106 

JMP 

ROT2TS 

02123 

101766 

JMS 

PTSTND 



/SAD 

TEST - 2.1 SECONDS 

02124 

142203 

SADTST 

DZM TEST 4 

02125 

202203 

LAC 

TEST4 

02126 

542203 

SAD 

TEST4 

02127 

741000 

SKP 


02130 

740040 

XX 


02131 

442203 

ISZ 

TEST4 

02132 

602125 

JMP 

SADTST + 1 

02133 

101766 

JMS 

PTSTND 



/JMS 

TEST - 3 SECONDS 

02134 

776200 

JMSTST 

LAW -1600 

02135 

042200 

DAC 

TESTi /1600 LOOPS 

02136 

777600 

LAW 

-200 

02137 

042201 

DAC 

TEST2 /200 JMS . 

02140 

203543 

LAC 

(6000 

02141 

042202 

DAC 

TEST 3 /FIRST ADDRESS O' 

0214? 

202205 

LAC 

JMSCON 

02143 

042203 

DAC 

TEST4 

02144 

745000 

SKP 

I CLL 

02145 

202203 

LAC 

TEST4 

02146 

062202 

DAC* TEST3 

02147 

442203 

ISZ 

TEST4 
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021 50 

442202 


IS? TESTS 



02151 

442201 


IS? TEST2 



021 52 

602145 


JMP .-5 



02153 

202206 


LAC RETJMP 



02154 

062202 


0 AC* TEST3 



021 55 

606000 


JMP 6000 



02155 

777600 

jmpret 

LAW 

-200 


02157 

042201 


DAC TEST2 



02160 

402140 


X C T JMSTST + 4 



02161 

042202 


DAC TEST3 



02162 

741000 


SKP 



021 63 

202202 


LAC TEST3 



02164 

740001 


CM A 



02165 

362202 


TAD* TEST3 



02166 

503375 


AND MASK 



02167 

740200 


S2A 



02170 

740040 


XX 



02171 

442202 


IS? TEST3 



02172 

442201 


IS? TEST2 



02173 

602163 


JMP .-10 



02174 

442200 


IS? TESTl 



02175 

602136 


JMP JMSTST + 2 



02176 

101766 


JMS PTSTND 



02177 

602046 


JMP I S?TST 



02200 

000000 

TESTl 

0 



02201 

000000 

TEST2 

0 



02202 

000000 

TEST3 

0 



02203 

000000 

TEST4 

0 



02204 

000000 

TEST5 

0 



02205 

106000 

JMSCON 

I JMS 

6000 


02206 

602156 

retjmp 

1 JMP 

jmpret 



/REWIND ALL SELECTED 

DRIVES to reverse end zone 

02207 

000000 

REPOSI 

0 



02210 

102225 


JMS RSEDRV 


/RESET POINTERS FOR FIRST DRIV 

02211 

203377 


lac movbak 


/GET MORE BACKWARDS 

02212 

243506 


XOR UNFUNC 


/COMBINE WITH UNIT NUMBER 

02213 

707545 


707545 /CLEAR AND LOAD A 

02214 

101701 


JMS watint 


/WAIT 

02215 

500000 


500000 /EXPECT 

END ZONE AND EF 

02216 

602336 


JMP mover /move error (incorrect status) 

02217 

750001 


CLA !CMA 



02220 

063467 


DAC* POSITN 


/indicate end zone 

02221 

063445 


DAC* DIRECT 


/and BACKWARDS 

02222 

102244 


JMS CHNGDR 


/set UP NeXT DRIVE 

02223 

602211 


JMP REPOSI+2 


/REWIND next drive 

02224 

622207 


JMP* REPOsI 


/ALL DRIVES IN END 20NE, EXIT 



/reset current 

drive 

pointer to first drive selected 

02225 

000000 

rsedrv 

0 



02226 

143436 


D?M CDRIVE 


/Zero current drive 

02227 

203430 


LAC TWOHUN 



02230 

043443 


DAC C0M8IT 


/SET UP combit 

02231 

203453 


LAC MS8ITS 



02232 

503443 


AND COMBIT 



02233 

750200 


S2a!CLA /IS 

this 

DRIVE SELECTED 

02234 

602242 


JMP RSFORl 


/yes, SET POINTER 
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02235 

203443 

LAC COMBIT 


02236 

744020 

CLL!RaR /MOVE 

DRIVE bit right 

02237 

043443 

dac combit 


0 2 2 4 0 

443436 

IS? CDrIvE 

/increment drive number 

02241 

607231 

JMP RSFORV+4 
/HAVE FOUND FIRST 

drive SELECTED 

02242 

102263 

rsfdRi jms g 

NPTRS /GENERATE CONTROL POINTERS 

02243 

622225 

JMP# RSFDRV 

/EXIT 


/Select next dRIV 

e or reset to first and skip 

02244 

000000 

chngor 0 


02245 

203443 

lac combit 

/GET DRIVE BIT 

02246 

744020 

CLLIRAR /MOVE 

RIGHT 

02247 

740400 

SNL /CHECKED ALL DRIVES 

02250 

602254 

JMP .+4 /NO 


02251 

10222 5 

JMS RSFDRV 

/yes reset to first 

02252 

442244 

isz chngdR 

/ I NCREMENT 

02253 

622244 

JMP* chngdr 

/And EXIT 

02254 

043443 

DAC COMBIT 


02255 

443436 

ISZ CORIVE 


02256 

503453 

AND MSB I TS 


02257 

751200 

sna ! cl a /This 

DRIVE selected? 

02260 

602245 

JMP CHNGDR+1 

/NO 

0 2 2 6 1 

102263 

JMS GNPTRS 

/GENERATE DRIVE POINTERS 

02262 

622244 

JMP* CHNGDR 

/EXIT 



/generate last recmrd, direction and unit number 
/POINTERS EOr DECTAPE FUNCTIONS 

02263 

000000 

GNPTRS 0 


02264 

203436 

lac corive 

/GET DRIVE number 

02265 

744020 

cllirar 


02266 

740020 

RAR 


02267 

742020 

RTR /REPOSITION FOR STORAGE 

02270 

043506 

DAC UNFUNC 

/IN unit function REGISTER 

02271 

203436 

LAC CDRIVE 


02272 

342303 

TAD pntrs 


02273 

043467 

DAC POSITN 

/SET UP POSITION 

02274 

203436 

LAC CDRIVE 


02275 

342314 

TAD pntrs + h 


02276 

043445 

DAC DIRECT 

/DIRECTION AND 

02277 

203436 

LAC CDRIVE 


02300 

342325 

TAD PNTRS+22 


02301 

043451 

DAC LSTBLK 

/Last block block pointers 

02302 

622263 

JMP* GNPTRS 


02303 

002304 

PNTRS .+1 


02314 


.LOC .+10 


02314 

002315 

. +1 


02325 


.LOC .+10 


02325 

002326 

. +1 


02336 


.LOC .+10 




/MOVE ERROR 


02336 

102340 

MOVER JMS .+2 


02337 

602211 

JMP REPOS I + 2 


02340 

000000 

0 


02341 

102726 

jmS eRSTP /STOP 

tape 

02342 

102734 

JMS TYMqVE 

/type OUT HEADER 

02343 

707572 

707572 /READ 
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02344 

102670 

JMS 

OPRINT 


/TYPE OUT B 

02345 

203544 

LAC 

( MESS3 



02346 

102633 

JMS 

MSPRNT 


/TYPE "STATUS R" 

02347 

750004 

LAS 




02350 

751 100 

SPA! 

CLA 



02351 

740040 

XX 




02352 

622340 

JHP* 

. MOVER* 2 





/Search routine - 

find block INDICATED 



/BY the CONTENTS 

OF 

"RECORD" IN the direction 



/INDICATED BY "OIRFLG", 0-FWD, -l-BKWD 

02353 

000000 

search 

0 



02354 

203446 

LAC 

OIRFLG 



02355 

754200 

S2 A ! CL A ! CLL 


/FORWARD? 

02356 

740002 

CML 

/NO, 

BACKWARD 

02357 

203425 

LAC 

THREE /COMPUTE 

02360 

741400 

S2L 

/TURN 



02361 

602364 

JMP 

.+3 /AROUND 


02362 

740001 

CM A 

/POINT 


02363 

343401 

tad 

ONE /FOR 



02364 

343472 

tad 

RECORD 


/DECTaPE 

02365 

740001 

CM A 

/SEARCH 


02366 

343401 

tad 

ONE /AND 



02367 

043500 

dac 

TAPONT 


/STORE 

02370 

203446 

LAC 

OIRFLG 



02371 

751200 

SNA ! 

CLA /FWD 

OR 

bkwd? 

02372 

203371 

LAC 

ftytho 


/BKWD (40,000) 

02373 

343412 

tad 

SEAFOR 


/SEARCH FORWARD 

02374 

343506 

tad 

UNFUNC 


/COMBINE IN UNIT NUMBER 

02375 

707545 

707545 /CLEAR 

AND LOAD "A” 

02376 

203372 

LAC 

IDCON /8LKFN0 


02377 

040031 

dac 

CA /SET 

UP 

CA 

02400 

750001 

CLA! 

CMA 



02401 

043434 

DAC 

rlkflg 


/set up blkflg 

02402 

101701 

JMS 

watint 



02403 

000100 

100 

/DTF 



02404 

602503 

JMP 

SRE2TS 


/error, see if end hone 

02405 

102441 

JMS 

SRCONT 



02406 

602412 

JMP 

SRTARN 


/BLOCK = BLOCK FOUND 

02407 

602412 

JMP 

SRTARN 


/GONE PAST BLOCK 

02410 

707554 

707544+10 /CLEAR 

AC, XOR A 

024H 

602402 

JMP 

.-7 /HAVEN' 

t reached block yet 

02412 

707552 

srtarn 

707552 

/READ "A" 

02413 

740001 

CM A 




02414 

503432 

AND 

TYTHOU 


/MOTION BIT 

02415 

343371 

tad 

FTYTHO 


/40 » 000 

02416 

707544 

707544 /XOR 

"A 

" (TURN AROUND) 

02417 

203472 

LAC 

RECORD 



02420 

740001 

CMA 




02421 

343401 

tad 

ONE 



02422 

043500 

DAC 

TAPONT 


/SET UP TaPONT 

02423 

750001 

CLA! 

CMA 



02424 

043434 

DAC 

BLKFLG 


/and blkflg 

02425 

101701 

JMS 

WATINT 


/wait 

02426 

000100 

100 

/DTF 



02427 

602562 

JMP 

srherr 


/error 
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-71243c, 102441 

P'2431 622353 

02432 602562 

02433 750001 

02434 343434 

02435 751200 

02436 602533 

02437 707544 

02440 602425 


02441 000000 

02442 443434 

02443 741000 

02444 60 ? 46l 

02445 707552 

02446 503371 

02447 750200 

02450 740001 

02451 741200 

02452 343401 

02453 343470 

02454 740001 

02455 343401 

02456 343435 

02457 750200 

02460 602562 

02461 203435 

02462 043470 

02463 343500 

02464 741200 

02465 622441 

02466 442441 

02467 755100 

02470 740002 

02471 707552 

02472 503371 

02473 741400 

02474 602500 

02475 750200 

02476 442441 

02477 622441 

02500 751200 

02501 442441 

02502 622441 

02503 707572 

02504 7 4 ? 0 1 0 

02505 754100 

02506 602562 

02507 203500 

02510 740100 

02511 602515 

02512 343376 

02513 750100 

02514 602530 


JMS SRcONT /check relation of block 

jmp * Search /found block# exit 

JMP SRHERR 
CLA ! CMA 

tad rlkflg 

SN A ! CL A /READ 2 BLOCK NUMBERS 

JMP SRcMOO /YES, CHANGE TO CONTINUOUS MODE 

707544 / X OR INTO •'A" (CLEAR FLAGS) 

JMP ,-13 

/piNO RELATION Of «LOCk FOUND TO BLOCK 
/SOUGHT AND TESt BLOCK NUMBERS yO BE CONSECUTIVE 
SRCONT 0 

IS? RLKFLG /FIRST BLOCK NUMBER? 

SKP /NOT FIRST 

JMP SRFBLK /FIRST, JUST SAVE IT 

707552 /RE AO " A " 

AND FTYTHO /40 » 000 

S2 A ! CL A /BACKWARDS 

CMA /YES, -1 

SNA 

Tad ONE /FORWARD, +1 

tad preblk /last block + 1 or -i 

CMA 

tad one 
tad blkfnd 

S?A-'CLa /BLOCKS CONSECUTIVE 
JMP SRHERR /NO, ERROR 

srfblk lac blkfnd 

dac PREBLK 
tad TAPONT 

SN A /Found BLOCK? 

JMP * SRCONT /yES 

IS? SRCONT 

SP A ! CL A ! CLL /BLKFND GREATER 

CML /NO, LESS 

707552 /READ A 

AND fTYThO /40 » 000 

SZL 

JMP .+4 

SZajCLa /IF FORWARD HAVE GONE PAST 

I SZ * SRCONT /BACKWARD 

JMP* SRCONT 

SNA ! CLA 

IS? SRCONT 

JMP* SRCONT 

SREZTS 707572 /READ "B" 

RTL /MOVE EZ BIT INTO 0 

SMa!CLA?CLL /ENO ZONE INTERRUPT? 

JMP SRhERR /no# some other 

LAC TApONj 

SMA /BLOCK 0 OR 1 

JMP .+4 
tao MBLOCK 

SMA’CLA /BLOCK 1077 OR 1100? 

JMP .+14 /NO, TURN AROUND 
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02515 

7 6 F /i / 4 

1 AS 



0 251 6 

7420 1 ^ 

RTL 



025 1 7 

740010 

RAL 



02520 

750100 

SM A ! 

C L A / m F. W 

Format tare? 

0 25 21 

602412 

JMP 

srtarn 

/yes, turn around 

02522 

? 0 3 4 3 2 

LAC 

TYTHOU 

/20 * 000 

0 ? 5 2 3 

707544 

707544 /XOR 

INTO "A" (GO AGAIN) 

0 2 5?4 

101701 

JMS 

WAT I NT 

/wait for e? 

02525 

5 0 0 0 0 0 

500000 /ERROR, ENn 20NE 

02526 

60256? 

JMP 

srheRR 


02527 

602412 

JMP 

srtarn 


0 25 3 0 

443434 

ISH 

RLKFLG 

/not first interrupt 

02531 

602562 

JMP 

srherr 

/E2 IS ERROR 

02532 

602412 

JMP 

SRT aRN 

/TURN AROUND 

02533 

203435 

SRCMOO 

LAC BLKEND /FIND DIFFERENCE 

0 2534 

740001 

CM A 

/IN number 

02535 

343401 

TAD 

ONE /OF 


02536 

343472 

tad 

RECORD 

/BLOCKS 

02537 

741100 

SPA 



025 4 0 

602543 

JMP 

. +3 


02541 

740001 

cma 

/MAKE 

negative 

02542 

343401 

tad 

ONE 


02543 

040030 

DAC 

WC /FOR 

WORD COUNT 

02544 

203423 

LAC 

TENTHO 

/ 10 » 000 (CONTINUOUS) 

02545 

707544 

707544 /XOR 

INTO "A" 

02546 

101701 

JMS 

watint 


02547 

000100 

100 

/DTF 


02550 

602562 

JMP 

SRHERR 

/NOT NORMAL INTERRUPT 

02551 

203435 

LAC 

8 LKFND 


02552 

740001 

CMA 



02553 

343401 

tad 

ONE 


02554 

343472 

tad 

RECORD 


02555 

750200 

S?A I CL A /CORRECT BLOCK? 

02556 

602562 

JMP 

SRHERR 

/NO, ERROR 

02557 

203423 

LAC 

TENTHO 

/ 1 0 » 000 

02560 

707544 

707544 /XOR 

INTO "A" (CLEAR CONT) 

02561 

622353 

JMP* 

• search 




/SEARCH ERROR TYPEOUT 

02562 

102726 

srherr 

JMS ERSTP /STOP TAPE 

02563 

102743 

JMS 

TYSRCH 

/TYPE HEADER 

02564 

203472 

lac 

RECORD 


02565 

102670 

JMS 

OPR I NT 

/TYPE BLOCK NUMBER 

02566 

203545 

lac 

(MESS 18 


02567 

102633 

JMS ' 

MSPRNT 

/TYPE "BLOCK WANTED 

02570 

203446 

lac 

OIRELG 


02571 

751200 

SNA ! 

CLA 


02572 

602575 

JMP 

. +3 


02573 

103100 

JMS 

TY 8 KW /TYPE 

BACKWARDS 

02574 

741000 

SKP 



02575 

103104 

JMS 

TYFWD /TYPE 

forward 

02576 

10271 4 

JMS 

CRLF 


02577 

203435 

LAC 

RLKFND 


02600 

102670 

JMS 

OPRINT 

/TYPE BLOCK FOUND 

02601 

203546 

LAC 

(MESS19 


02602 

102633 

JMS 

MSPRNT 

/TYPE "BLOCK FOUND! 



PAGE ?! 

Randfx 

DTRF15 





0 2 6 0 3 

750001 

CLA ! C M A 




0 ? 6 0 4 

343434 

Tap 

rlkflg 




0 2 6 0 5 

751100 

SPA ! 

CLA 




P'2606 

602613 

JMp 

. ♦5 




0 2 6 0 7 

203470 

LAC 

PREBLK 




02610 

102670 

JMS 

OPR I NT 


/TYPE 

PREVIOUS BLOCK 

0 2 61 1 

203547 

LAC 

( MESS20 




02612 

102633 

JMS 

MSPRNT 


/type 

"LAST BLOCK" 

0261 1 

443434 

IS? 

RLKFLG 




02614 

740000 

NOP 





02615 

203434 

LAC 

RLKFLG 




0 2 6 16 

102670 

JMS 

OPR 1 NT 


/TYPE 

OUT QUANTITY OF BLOCKS 

0 2 6 1 7 

203550 

LAC 

(MESS21 




02620 

102633 

JMS 

MSPRNT 


/type 

"BLOCKS READ" 

02621 

707572 

707572 /RFAD 

"B" 



02622 

102670 

JMS 

OPR I NT 


/type 

OUT b 

02623 

203551 

LAC 

( M£ SS3 




02624 

102633 

JMS 

MSPRNT 


/TYPE 

"STATUS B" 

0262* 

750004 

LAS 





02626 

751100 

SPA ! 

CLA /HALT 

ON 

ERROR? 


02627 

740040 

XX 

/YES 




0?63P 

443457 

IS? 

PASFLG 


/SECOND ERROR? 

02631 

600361 

JMP 

rewdrv 


/yes, 

rewind drive 

02632 

602354 

JMP 

SEARCh+1 


/NO • 

search again 



/TYPE 

TEXT ROUTINE 




02633 

000000 

MSPRNT 

0 




02634 

503552 

AND 

( 7777 




02635 

043466 

DAC 

PNTR 4 




02636 

750004 

LAS 





02637 

740010 

RAL 





02640 

751100 

SPA • 

CLA 




02641 

622633 

JMP # 

MSPRNT 




02642 

223466 

LAC# 

PNTR 4 




0 2*43 

742020 

RTR 





02644 

742020 

RTR 





02645 

742020 

RTR 





02646 

742020 

RTR 





02647 

740020 

RAR 





02650 

102661 

JMS 

TYPE 




02651 

543411 

SAD 

RUBOUT 




02652 

622633 

JMP# 

MSPRNT 




02653 

223466 

LAC* 

PNTR4 




02654 

102661 

JMS 

TYPE 




02655 

543411 

SAD 

RUBOUT 




02656 

622633 

JMP* 

MSPRNT 




02657 

443466 

IS? 

PNTR4 




0 2 6 60 

602636 

JMP 

MSPRNT+3 




02661 

0 0 0 0 0 0 

TYPE 0 





02662 

5034H 

AND 

RUBOUT 




02663 

700406 

TLS 





02664 

700401 

TSF 





02665 

602664 

JMP 

. “1 




02666 

700402 

TCF 





02667 

622661 

JMP# 

TYPE 






/TYPE 

OUT CONTENTS 

OF 

AC IN 

OCTAL 
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R ANOE* 

DTRE15 

0 ? A 7 v 

000070 

OPRINT 0 

22671 

0435*4 

PAG TEM4 

02672 

750004 

LAS 

22673 

740010 

RAL 

<*2674 

751100 

SPA : CLA 

02675 

622670 

JMP* OPRINT 

02676 

777772 

LAW -6 

02677 

043441 

DAC CNTRl. 

02700 

203504 

LAC TEM4 

02701 

744010 

RAL ! CLL 

02702 

7400 1 0 

RAL 

0 2 7 0 3 

742010 

RTL 

02704 

043504 

0 A C TEM4 

02705 

50341 3 

AND SEVEN 

02706 

243363 

X OR ASCI I 

02707 

102661 

JMS TYPE 

02710 

203504 

LAC TEM4 

02711 

443441 

IS? CNTRl 

02712 

602702 

JMP .-10 

02713 

622670 

JMP* OPRINT 

02714 

000000 

CRLF 0 

02715 

750004 

LAS 

02716 

740010 

RAL 

02717 

751100 

SPA ! CLA 

02720 

622714 

JMP* CRLF 

02721 

760215 

LAW 215 

02722 

1 02661 

JMS TYPE 

02723 

760212 

LAW ?i? 

02724 

102661 

JMS TYPE 

02725 

622714 

JMP* CRLF 

/stop tape on error, leave flags set 

02726 

000000 

ERSTP 0 

02727 

707552 

707552 /READ "A" 

02730 

503432 

AND TYTHOU /STOP 

02731 

343411 

tad rubout /don't clear dtf and ef 

02732 

707544 

707544 /XOR INTO "A” 

02733 

622726 

JMP* ERSTP 

/TYPe ’’MOVE” AND DIRECTION 

02734 

000000 

TYMqVE 0 

02735 

103040 

JMS tydrv 

02736 

203553 

LAC (MESS22 

02737 

102633 

JMS MSPRNT 

02740 

103056 

JMS TYDIR 

02741 

102714 

JMS CRLF 

0274? 

622734 

JMP* TYMOVE 

/TYPE SEARCH DIRECTION AND MODE 

02743 

000000 

TYSRCH 0 

02744 

103040 

JMS TYORV 

02745 

102714 

JMS CRLF 

02746 

203564 

LAC (MESS23 

02747 

102633 

JMS MSPRNT 

02750 

103056 

JMS TYDIR 

02751 

103070 

JMS TYMODE 

02752 

102714 

JMS CRLF 

02753 

622743 

JMP* TYSRCH 
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RAnHEX 

DTRE15 







/TYPE 

"REAP PaTa" 

DIRECTION 

and 

mode 

rt2?54 

000000 

TYRDAT 

0 




0 2 7 5 K 

103040 

JMS 

TYORV 




21 2 7 5 6 

102714 

jms 

CRLE 




0 2 7 5 7 

103020 

JMS 

TYRE AO 




0276? 

103030 

JMS 

TYDATA 




02 7 61 

103056 

JMS 

TYOIR 




,? '2 7 6? 

103070 

JMS 

TYMODE 




0 2 7 6 3 

102714 

JMS 

CRLE 




0 2 7 6 4 

622754 

JMP 

* TYRDAT 





/TYPE 

"REAP ALL" 

DIRECTION 

and 

mode 

0 ? 7 6 5 

000000 

tyrall 

0 




02766 

103040 

JMS 

TYORV 




02767 

102714 

JMS 

CRLF 




02770 

103020 

JMS 

TYRE AO 




02771 

103034 

JMS 

T Y ALL 




0277? 

103056 

JMS 

TYOIR 




02773 

103070 

JMS 

TYMODE 




02774 

100714 

JMS 

CRLF 




02775 

622765 

JMP 

* TYRALL 






/type 

"WRITE DATA 

" DIRECTION and mode 

02776 

000000 

tywdat 

0 




02777 

103040 

JMS 

TYORV 




03000 

102714 

JMS 

CRLF 




03301 

103024 

JMS 

TYWRIT 




03002 

103030 

JMS 

TYDATA 




03003 

103056 

JMS 

TYOIR 




03004 

103070 

JMS 

TYMODE 




03005 

102714 

JMS 

CRLE 




03006 

622776 

JMP 

* tywdat 






/TYPE 

"WRITE ALL" 

direction 

AND 

mode 

03007 

000000 

tywall 

0 




03010 

103040 

JMS 

TYDRV 




03011 

102714 

JMS 

CRLE 




03012 

103024 

JMS 

TYWRIT 




03013 

103034 

JMS 

TY ALL 




03014 

103056 

JMS 

TYOIR 




03015 

103070 

JMS 

TYMODE 




03016 

102714 

JMS 

CRLE 




03017 

623007 

JMP 

* TYWALL 






/TYPE 

"READ" 




03020 

000000 

TYRE AO 

0 




03021 

203555 

LAC 

(MESS24 




03022 

102633 

JMS 

msprnt 




03023 

623020 

JMP 

* TYREAP 






/TYPE 

"WRITE" 




03024 

000000 

TYWRIT 

0 




03025 

203556 

LAC 

(MESS25 




030 26 

102633 

JMS 

msprnt 




03027 

623024 

JMP 

* TYWRIT 






/TYPE 

" 0 A T A " 




03 030 

000000 

TYDATA 

0 




03031 

203557 

LAC 

( MESS26 




03032 

102633 

JMS 

MSPRNT 




03033 

623030 

JMP 

« TYDATA 
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R A N 6 E X 

DTRE15 




/TYPE "ALL" 


0 3 Pi 3 4 

000000 

TYALL a 


0 3035 

203560 

LAC (MESS27 


03036 

102633 

JMS msphnt 


0 303 7 

623034 

jmp* tyall 




/TYPp drive anp number 

0 3 0 40 

000000 

TYPRV 0 


03041 

750004 

LAS 


03042 

740010 

RAL 


0 3 0 4 3 

751100 

SPA ! CLA 


0 30 4 4 

623040 

JMP* TYDRV 


03045 

2035*1 

LAC ( M E S S 2 8 


03046 

102633 

JMS MSPRNT 


0 30 4 7 

203436 

LAC CDRIVE 


03050 

741200 

SNA 


03051 

343422 

tap ten 


03052 

243363 

X OR ASCII 


03053 

102661 

JMS TYPE 


03054 

102714 

JMS CRLF 


03055 

623040 

JMP* TYDRV 




/TYPE "FORWARD” OR 

"BACKWARD" 

03056 

000000 

tydir 0 


03057 

707552 

707552 /READ 

"A" 

03060 

503371 

ANP ETYTHO 

/ 400000 

03061 

741200 

SNA 


03062 

603065 

JMP . + 3 


03063 

203562 

LAC (MESS29 

/BACKWARD 

03064 

741000 

SKP 


03065 

203563 

LAC (MESS30 

/FORWARD 

03066 

102633 

JMS MSPRNT 


03067 

623056 

JMP* TYOIR 




/TYPE "CONTINUOUS" 

IF NOT NORMAL MODE 

03070 

000000 

T Y MODE 0 


03071 

707552 

707552 /READ 

"A" 

03072 

503423 

AND TENTHO 

/10000 

03073 

741200 

SNA 


03074 

623070 

JMP* TYMODE 


03075 

203564 

LAC (MESS31 


03076 

102633 

JMS MSPRNT 

/TYPE "CONTINUOUS 

03077 

623070 

JMP* TYMODE 




/TYPE "BACKWARD" 


03100 

000000 

TYBKW 0 


03101 

203565 

LAC (MESS29 


03102 

102633 

JMS MSPRNT 


03103 

623100 

JMP* TYBKW 




/TYPE "FORWARO" 


03104 

000000 

TYFWD 0 


03105 

203566 

LAC (MESS30 


03106 

102633 

JMS MSPRNT 


03107 

623104 

JMP* TYEWD 


03110 

215212 

MESSl 215212 /CR » LF 


03111 

316317 

316317 /N,0 


03112 

2 40324 

240324 /SP.T 


03113 

322301 

322301 /R » A 


03114 

316323 

316323 /N * S 
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ranhex 


0TRE15 


e’3ii e > 

320317 

320317 

/P , 0 

03116 

3 2 9 3 2 4 

322324 

/H,T 

0311? 

323240 

323240 

/S.SP 

03120 

3 2 3 3 0 5 

323305 

/S, E 

03121 

314305 

314305 

/L.E 

0312? 

303324 

303324 

/C. T 

0312? 

305304 

305304 

/E » D 

03124 

215212 

215212 

/CR, LF 

03125 

377000 

377000 

/R.O. 

03126 

240302 

MESS2 240302 

/ SP , B 

03127 

314317 

314317 

/L.O 

03130 

303313 

303313 

/C » K 

03131 

2 1 5 2 1 2 

215212 

/CR , LF 

03132 

377300 

377000 

/R.O. 

03133 

240323 

MESS3 240323 

/SP,S 

03134 

324301 

324301 

/T * A 

03135 

324325 

324325 

/T.U 

03136 

323240 

323240 

/S.SP 

03137 

302215 

302215 

/B.CR 

03140 

212377 

212377 

/IF, R.O 

03141 

240327 

MESS4 240327 

/SP,W 

03142 

256303 

256303 

/.c 

03143 

256215 

256215 

/.CR 

03144 

212377 

212377 

/LF,RO 

03145 

304301 

MESS5 304301 

/O, A 

03146 

324301 

324301 

/T. A 

03147 

240305 

240305 

/SP.E 

03150 

322322 

322322 

/R.R 

03151 

317322 

317322 

/O.R 

03152 

215212 

215212 

/CR . LF 

03153 

377000 

377000 

/RO 

03154 

240303 

MESS6 240303 

/SP.C 

03155 

317322 

317322 

/O.R 

03156 

215212 

215212 

/CR » LF 

03157 

377000 

377000 

/RO 

03160 

240311 

MESS7 240311 

/SP.l 

03161 

316303 

316303 

/N.C 

03162 

215212 

215212 

/CR » LF 

03163 

377000 

377000 

/RO 

03164 

240301 

MESS8 240301 

/SP.A 

03165 

304304 

304304 

/D.O 

03166 

322323 

322323 

/R » S 

03167 

240317 

240317 

/SP. 0 

03170 

306240 

306240 

/F.SP 

03171 

311316 

311316 

/l.N 

03172 

303215 

303215 

/C.CR 

03173 

212377 

212377 

/LF , RO 

03174 

303313 

MESS9 303313 

/C.K 

031 75 

323325 

323325 

/S,U 

0 317 6 

315240 

315240 

/M.SP 

03177 

305322 

305322 

/E . R 

03200 

322317 

322317 

/R.O 

03201 

322215 

322215 

/R.CR 

03202 

212377 

212377 

/LF , RO 

03203 

240322 

MESS10 

240322 



PAGE 


RANnEX 


0TRE15 


0 3?04 

305326 

3053?6 

/E . V 


0 3205 

240377 

240377 

/SP , RO 


03206 

24031 4 

MESSll 

240314 

/SP.L 

03?07 

256320 

256320 

/. .P 


03210 

256302 

2563 *2 

/. .8 


03211 

256215 

256215 

/ . . Cr 


0321? 

212377 

212377 

/LF , R o 


03213 

2403^3 

MESS12 

240303 

/SP,C 

03214 

310305 

310305 

/H , E 


03215 

303313 

303313 

/C » K 


03216 

240323 

240323 

/SP,S 


03217 

32531.5 

325315 

/U.M 


03220 

377000 

377000 

/RO 


03221 

240303 

MESS13 

240303 

/SP,C 

03222 

301314 

301314 

/A » L 


03223 

303325 

303325 

/C.U 


03224 

314301 

314301 

/L , A 


03225 

324305 

324305 

/T * E 


03226 

304377 

304377 

/D * RO 


03227 

215212 

MESS 14 

215212 

/CR,LF 

03230 

320256 

320256 

/P. . 


03231 

311256 

311256 

/ 1 * . 


03232 

240377 

240377 

/SP » RO 


03233 

215212 

MESS15 

215212 

/CR , LF 

03234 

316317 

316317 

/N,0 


03235 

240320 

240320 

/SP,P 


03236 

256311 

256311 

/ . * I 


03237 

256377 

256377 

/. ,RO 


03240 

240316 

MESS16 

240316 

/SP.N 

03241 

317377 

317377 

/O » RO 


03242 

240304 

MESS17 

240304 

/SP.D 

03243 

305303 

305303 

/E.C 


03244 

324301 

324301 

/ T » A 


03245 

320305 

320305 

/P * E 


03246 

240323 

240323 

/sp.s 


03247 

313311 

313311 

/ K * I 

* 

03250 

320215 

320215 

/P » CR 


03251 

212377 

212377 

/LF , RO 


03252 

240302 

MESS18 

240302 

/ SP » B 

03253 

314317 

314317 

/L » 0 


03254 

303313 

303313 

/C » K 


03255 

240327 

240327 

/SP, w 


03?56 

301316 

301316 

/A ,N 


03?57 

324305 

324305 

/T.E 


03260 

304377 

304377 

/D , RO 


03261 

240302 

MESS19 

240302 

/SP , B 

03262 

314317 

314317 

/L » 0 


03263 

30331.3 

303313 

/C , K 


03264 

240306 

240306 

/SP , F 


03265 

317325 

317325 

/0,U 


03266 

316304 

316304 

/N , D 


03267 

215212 

215212 

/CR , LF 


03270 

377000 

377000 

/RO 


03271 

240314 

MESS20 

240314 

/SP.L 

03272 

301323 

301323 

/ A , S 
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randex 


DTRE15 


0 3 2 7 3 

324240 

324240 

/ T , SP 


03274 

302314 

302314 

/8 , C 


03?75 

317303 

317303 

/ 0 • c 


03276 

313215 

313215 

/K , CR 


0 3 7 7 7 

212377 

712377 

/LF.CR 


03300 

240302 

MESS?l 

240302 

/SP.R 

03301 

314317 

314317 

/ L . 0 


03302 

303313 

303313 

/C . K 


03303 

323240 

323240 

/S, SP 


03304 

322305 

322305 

/R * E 


03305 

301 304 

301304 

/ A , 0 


03306 

215212 

215212 

/CR.LF 


03307 

377000 

377000 

/RO 


03310 

215212 

MESS22 

21^212 

/CR.LF 

03311 

315317 

315317 

/M, 0 


03312 

326305 

326305 

/ V , E 


03313 

240377 

240377 

/SP.RO 


03314 

323305 

MESS23 

323305 

/S, E 

03315 

301322 

301322 

/ A , R 


03316 

303310 

303310 

/C » H 


03317 

240377 

240377 

/SP.RO 


03320 

322305 

MESS24 

322305 

/R.E 

03321 

301304 

301304 

/ A » D 


03322 

240377 

240377 

/SP. RO 


03323 

327322 

MESS25 

327322 

/ W » R 

03324 

311324 

311324 

/I . T 


03325 

305240 

305240 

/E.SP 


03326 

377000 

377000 

/RO 


03327 

304301 

MESS26 

304301 

/O, A 

03330 

324301 

324301 

/T . A 


03331 

240377 

240377 

/SP.RO 


03332 

301314 

MESS27 

301 314 

/A » L 

03333 

314240 

314240 

/L, SP 


03334 

377000 

377000 

/RO 


03335 

215212 

MESS28 

215212 

/CR.LF 

03336 

215212 

215212 

/CR.LF 


03337 

304322 

304322 

/D.R 


03340 

311326 

311326 

/I .V 


03341 

305240 

305240 

/E.SP 


03342 

240377 

240377 

/SP.RO 


03343 

302301 

MESS29 

302301 

/B. A 

03344 

303313 

303313 

/CK 


03345 

327301 

327301 

/*' A 


03346 

322304 

322304 

/R.O 


03347 

240377 

240377 

/SP* RO 


03350 

306317 

MESS30 

306317 

/F, 0 

03351 

322327 

322327 

/R. W 


03352 

301 322 

301322 

/A , R 


03353 

304240 

304240 

/Q . SP 


03354 

377000 

377000 

/RO 


03355 

30331 7 

MESS31 

303317 

/c.o 

03356 

316324 

316324 

/N* T 


03357 

311316 

311316 

/ 1 . N 


03360 

325317 

325317 

/u . 0 


03361 

325323 

325323 

/U.S 
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3 33 6? 

547377 

240377 

/SP , RO 




/CONSTANTS 



03363 

000560 

ASCII 260 



03364 

004377 

BFiLOC 

rUFFRS -1 

/CONSTANT FOR OATa STORE 

0 3 3 6 5 

005000 

PF2L0C 

pUFFRS+400 /ADDRESS OF SECOND BUFFER 

03365 

005315 

oirtbl 

PNT RS + i^2 

/DIRECTION TABLE 

0 3 3 6 7 

015000 

FIFTHO 

15000 

/SEARCH TO WRITE CONT 

03370 

005000 

F 1 VTHO 

5000 


0 3 3 71 

040000 

FTYTHO 

40000 

/BACKWARD 

0337? 

003435 

IOCON RLKFNO 



0 3 3 7 3 

001777 

INDEP 1777 

/MASK FOR 

block number 

03374 

005326 

LSTTBL 

PNTRS +53 

/last block written tarlf 

03375 

017777 

MASK 17777 



03376 

776700 

M8L0CK 

- 1 - 1100+1 

/-number of blocks 

03377 

060400 

MOVBAK 

060400 

/MOVE BACKWARDS 

03400 

400000 

MUCH 0 400000 



03401 

000001 

ONF 1 



034.0? 

001000 

ONFTHO 

1000 


03403 

002304 

POSTBL 

PNTRS+i 

/drive position table 

03404 

004402 

Radloc 

pUFFRS +2 

/LOCATION OF FIRST DaTa WORD (READ ALL) 

0 34 0 5 

003777 

R 8 FLOC 

ranbfr-i 


03406 

004377 

R 8 UFND 

RANBFR+377 

03407 

004000 

RBUFST 

RAN 8 FR 


03410 

060400 

REWIND 

060400 


03411 

000377 

RUBOUT 

37 7 

/MASK FOR 10-17 

0341? 

021400 

SEAFOR 

021400 


03413 

000007 

SEVEN 7 



03414 

000070 

70 



03415 

000700 

700 



03416 

007000 

7000 



03417 

070000 

70000 



03420 

700000 

700000 



03421 

000077 

SEVSEV 

77 

/mask 

0342? 

000010 

TEN 10 



03423 

010000 

tentho 

10000 

/CONTINUOUS 

03424 

000037 

TERSEV 

37 

/MASK 

0342*5 

000003 

THREE 3 



03426 

003000 

TRETHO 

3000 

/SEARCH TO READ 

03427 

013000 

trteth 

13000 

'/SEARCH TO READ CONTINUOUS 

03430 

000200 

TWOHUN 

200 


03431 

012000 

TWVTHO 

12000 

/SEARCH TO READ ALL CONTINUOUS 

03432 

020000 

tythou 

20000 

/GO, STOP 



/VARIABLES 



03433 

000000 

ACCUM 0 

/AC AT P. 

I 

03434 

000000 

BLKFLG 

0 


03435 

000000 

BLKFND 

0 

/NUMBER OF BLOCK FOUND 

03436 

000000 

CDRIVE 

0 

/CURRENT DRIVE NUMBER 

03437 

000000 

CKSUMR 

0 

/CALCULATED CHECKSUM 

03440 

000000 

cntr 0 

/EXTRANEOUS COUNTER 

03441 

000000 

CNTRi 0 

/COUNTER 

FOR OPRINT 

03442 

000000 

COCNTR 

0 

/COMPARE ERROR FLAG 

03443 

000000 

COH 0 IT 

0 

/BIT POSITION FOR TEST AGAINST S.R. 

03444 

000000 

OATaSH 

0 

/SAVED DATA SUM 

03445 

000000 

direct 

0 

/contains direction read 

03446 

000000 

DIRFLG 

0 

/indicates direction to go 
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03447 

000000 

FRSWAT 


7 34 5 0 

000000 

FWOCHK 


0 3 4 51 

000000 

LSTBLK 


03457 

000000 

LSTqRV 


03453 

000000 

msbits 


0 34 5 4 

000000 

NUMBER 


03455 

000000 

NUMbLK 


03456 

000000 

08VERS 


03457 

000000 

PASFLG 


03460 

000000 

PICNTR 


0 34 61 

000000 

PIDEXl 


0346? 

000000 

PI0EX2 


0 3 4 6 3 

0 0 0 0 0 0 

PNTRi 

0 

03464 

000000 

PNTR2 

0 

03465 

000000 

PNTR3 

0 

03466 

000000 

PNTR4 

0 

03467 

000000 

POSITN 


03470 

000000 

PREBLK 


03471 

000000 

RAEFLG 


0347? 

000000 

RECORD 


03473 

000000 

revchk 


03474 

000000 

RSQFLG 


03475 

000000 

SAVNUM 


03476 

000000 

SBRECD 


03477 

000000 

tally 

0 

03500 

000000 

tapont 


03501 

000000 

TEMl 

0 

03502 

000000 

TEM2 

0 

03503 

000000 

TEM3 

0 

03504 

000000 

TEM4 

0 

03505 

000000 

trectr 


03506 

000000 

UNFUNC 


03507 

000000 

WTCNTR 



000000 


.END 


03510 

003110 

*L 


03511 

003126 

*L 


03512 

003133 

*L 


03513 

003141 

*L 


03514 

003413 

*L 


03515 

003145 

*L 


03516 

003126 

*L 


03517 

003154 

*L 


03520 

003160 

*L 


03521 

003164 

*L 


03522 

003126 

*L 


03523 

003133 

*L 


03524 

003141 

*L 


03525 

003126 

*L 


03526 

003174 

*L 


03527 

003203 

*L 


03530 

003206 

*L 


03531 

003213 

»L 


03532 

003221 

*L 


03533 

003126 

*L 


03534 

003133 

*L 


0 

0 /FORWARD CHECKSUM 

0 /LAST BLOCK WRITTEN POINTER 

0 /NEGATIVE OF LaST DRIVE SELECTED 

0 /HOLO UNIT BITS 

0 /STORE FOR MCOMOB 

0 /NUMBER OF BLOCKS WITH WHICH TO OPERATE 

0 /OBVERSE NUMBER 

0 

0 /PI counter 

0 /PI pointer 

0 /PI POINTER 

/EXTRANEOUS POINTER 
/EXTRANEOUS POINTER 
/POINTER FOR MCOMOB 
/PO INTER FOR MSPRNT 
0 
0 

0 /READ ALL ERROR FLAG 

0 

0 /REVERSE CHECK FROM TAPE 

0 

0 /STORE NUMBER OF BLOCKS 

0 /STATUS OF B 

/Tally for mcomob 

0 /TURN AROUND POINT FOR SEARCH 

/temp storage 

/FOR PaTGEN 
/SUBROUTINE 
/STORAGE FOr OPrINt 

0 /COUNTER FOR WRITE DATA CONTINUOUS 

0 /UNIT NUMBER 

0 /WAIT COUNTER 
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■33535 

003141 

*L 

3 3536 

601735 

*L 

33533 

003227 

ttL 

3 35 4 3 

003233 

#L 

33541 

003240 

* L 

3354? 

003242 

*L. 

0 3543 

006000 

*L 

0 35 4 4 

003133 

»L 

03545 

003252 

* L 

0 35 4 6 

003261 

*L 

03547 

003271 


0 35 5 0 

003300 

#L 

0 3 5 51 

003133 

#L 

03552 

007777 

» L 

03553 

003310 

*L 

03554 

003314 

*L 

03555 

003320 

*L 

03556 

003323 

*L 

03557 

003327 

*L 

03560 

003332 

*L 

03561 

003335 

*L 

03562 

003343 

*L 

03563 

003350 

*L 

03564 

003355 

#L 

03565 

003343 

*L 

03566 

003350 

*L 


SIZE=03567 

NO error lines 
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ACCUM 03433 
ASCII 03363 
RFILOC 03364 
RF2LOC 03365 
RLKFLG 03434 
RLKFND 03435 
RllFFRS 004400 
CA 000031 
CALCTY 01653 
CDRIVE 03436 
CHNGDR 02244 
CKSTYP 01647 
CKSUMR 03437 
CLOF 700004 
CLON 700044 
CLSF 700001 
CNTR 03440 
CNTR1 03441 
COCNTR 03442 
CODATA 00626 
COERRO 00653 
COERR1 00673 
COLOOP 00640 
COMBIT 03443 
CORT1R 00763 
CRLF 02714 
DATASM 03444 
DIRECT 03445 
DIRFLG 03446 
DIRTBL 03366 
EEM 707702 
ERRCKS 01602 
ERRRAR 01657 
ERSTP 02726 
EXIST 00572 
FIFTHO 03367 
FIVTHO 03370 
FRSWAT 03447 
FTYTHO 03371 
FWDCHK 03450 
GNPATR 00444 
GNPTRS 02263 
I DCOM 03372 
INDEP 03373 
IRECD 01735 
ISZTST 02046 
JMPRFT 02156 
JMSCON 02205 
JMSTST 02134 
KRR 700312 
KSF 700301 
LEM 707704 
LOOP 00501 
LST0LK 03451 
LSTDRV 03452 
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LSTTPL 

03374 

MASK 

03375 

MBLOCK 

03376 

MCO-MOR 

00467 

MESS 1 

03110 

MESSl 0 

03203 

MESS11 

03206 

MESS 1 2 

03213 

MESS13 

03221 

MESS 1 4 

03227 

MESS15 

03233 

MESS 1 6 

03240 

MESS 1 7 

03242 

MESS18 

03252 

MESS19 

03261 

MESS2 

03126 

MESS20 

03271 

MESS21 

03300 

MESS22 

03310 

MESS23 

03314 

MESS24 

03320 

M.ESS25 

03323 

MESS26 

03327 

MESS 2 7 

03332 

MESS28 

03335 

MESS29 

03343 

MESS3 

03133 

MESS30 

03350 

MESS31 

03355 

MESS4 

03141 

MESS 5 

03145 

MESS6 

03154 

MESS7 

03160 

MESS8 

0316 4 

MESS 9 

03174 

MOFPRO 

00130 

mofpr i 

00145 

MOVBAK 

03377 

mover 

02336 

MSP ITS 

03453 

MSPRNT 

02633 

MUCH0 

03400 

mvoata 

00607 

NDOFRO 

01214 

ndtskp 

01762 

number 

03454 

NUMBIK 

03455 

08VERS 

03456 

ONE 

03401 

ONETHO 

03402 

OPR I NT 

02670 

PASFLG 

03457 

patgen 

00417 

PCF 

700202 

PICNTR 

03460 
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DTRE15 
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PIDEXl 03461 
PI0EX2 03462 
PIRTRL 02045 
PITBL 02025 
PNTRS 02303 
PNTR1 03463 
PNTR2 03464 
PNTR3 03465 
PNTR4 03466 
POSITN 03467 
POSTRL 03403 
PREBLK 03470 
PREGEN 00400 
PSA 700204 
PSB 700244 
PSF 700201 
PTSTNO 01766 
PTSTNS 02005 
RAOCHK 01540 
RADLOC 03404 
RAEFLG 03471 
RALLTS 01431 
RANBFR 004000 
RANDEX 00100 
RANOl 00516 
RAND2 00527 
RANQ3 00540 
RANSEL 00551 
RASERR 01556 
RBFLOC 03405 
RBUFNO 03406 
R8UFST 03407 
RCF 700102 
RD8UF l 01117 
RDCERR 01314 
RDCMOO 01221 
RDDATA 00253 
RDSEQ 01070 
ROSWCH 00123 
RDTAR 00211 
RECORO 03472 
REPOSI 02207 
REREAD 00272 
REREOA 00325 
RESETD 01721 
RETJMP 02206 
PEVCHK 03473 
REWCK 01034 
REWORK 00361 
REWIND 03410 
ROT 1 T S 02070 
R0T2TS 02106 
RRB 700112 
RS A 700104 
RSB 700144 



RANIOEX 


DTRE15 
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RSr 700101 
RSFDRV 02225 
RSFQRl 02242 
RSGFLG 03474 
RUBOUT 03411 
R 1 00525 
R2 00536 
R3 00547 
SAOTST 02124 
SAMDRV 00231 
SAVNUM 03475 
SBRECO 03476 
SEAFOR 03412 
SEARCH 02353 
SET I OX 02015 
SEVEN 03413 
SEVSEV 03421 
SRCMOD 02533 
SRCONT 02441 
SREZTS 02503 
SRFBLK 02461 
SRHERR 02562 
SRTARN 02412 
SWCMDL 01354 
SWCMOO 01343 
TALLY 03477 
TAPONT 03500 
TCF 700402 
TEM1 03501 
TEM2 03502 
TEM3 03503 
TEM4 03504 
TEN 03422 
TENTHO 03423 
TERSEV 03424 
TEST 1 02200 
TEST2 02201 
TEST3 02202 
TEST4 02203 
TEST5 02204 
THREE 03425 
TLS 700406 
TRECTR 03505 
TRETHO 03426 
TRTETH 03427 
TSF 700401 
TWOHUN 03430 
TWVTHO 03431 
TY ALL 03034 
TYBKW 03100 
TYDATA 03030 
TYDIR 03056 
TYORV 03040 
TYFWD 03104 
TYMODE 03070 



RANDEX 


DTRF15 
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TYMOVE 

02734 

type 

02661 

TYRALL 

02765 

TYRDAT 

02754 

TYREAD 

03020 

TYSRCH 

02743 

TYTHOU 

03432 

tywall 

03007 

TYWDAT 

02776 

TYWR IT 

03024 

UNFUNC 

03506 

watint 

01701 

WC 

000030 

WDCERR 

01405 

WDCMOO 

01332 

WDINC 

01022 

WRITE1 

00721 

WRTlA 

00775 

WSTERR 

01042 

WTCNTR 

03507 

XORSUM 

01560 

.EOT 

00000 





DTRF15 
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.EOT 00000 
WC 000030 
CA 000031 
R A \ D E x 00100 
RDSwCh 00123 
MOFPpO 00130 
MOFPRl 00145 
ROTAP 00211 
SAMORV 00231 
RDDATa 00253 
PEREAO 00272 
REPEDA 00305 
REWDRV 00361 
PREGEN 00400 
PATGEN 00417 
GNPATR 00444 
MCOMOB 00467 
LOOP 00501 
RANDl 00516 
Rl 00525 
RAND2 00527 
R2 00536 
RAND3 00540 
R3 00547 
RANSEL 00551 
EXIST 00572 
MVDATA 00607 
COOATA 00626 
COLOOP 00640 
COERRO 00653 
COERRl 00673 
WRITEl 00721 
CORT1R 00763 
WRTlA 00775 
WDINC 01022 
REWCK 01034 
WSTERR 01042 
RDSEQ 01070 
RDBUFl 01117 
NDOFRD 01214 
ROCMOD 01221 
RDCERR 01314 
WDCMOO 01332 
SWCMOD 01343 
SRCMDL 01354 
WOCERR 01405 
RALLTS 01431 
RADCHK 01540 
RASERR 01556 
XORSUM 01560 
ERRCKS 01602 
CKSTYP 01647 
CALCTY 01653 
ERRRAR 01657 
WATINT 01701 
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ranoex 

DTRE15 

RES E Tl) 

01721 


IRECO 

01735 


NDTSKP 

01762 


PTSTND 

01766 


PTSTNS 

02005 


SET I OX 

02015 


pitbl 

02025 


PIRTBL 

02045 


IS2TST 

02046 


ROT 1 TS 

02070 


R0T2TS 

02106 


SADTST 

02124 


JMSTST 

02134 


JMPRET 

02156 


TEST 1 

02200 


TEST2 

02201 


TEST3 

02202 


TEST4 

02203 


TEST5 

02204 


JMSCON 

02205 


RETJMP 

02206 


REPOSI 

02207 


RSFDRV 

02225 


RSFDR1 

02242 


CHNGDR 

02244 


GNPTRS 

02263 


PNTRS 

02303 


MOVER 

02336 


SEARCH 

02353 


SRTARN 

02412 


SRCONT 

02441 


SRFBLK 

02461 


SREZTS 

02503 


SRCMOO 

02533 


SRHERR 

02562 


MSPRNT 

02633 


TYPE 

02661 


OPRINT 

02670 


CRLF 

02714 


ERSTP 

02726 


TYMOVE 

02734 


TYSRCH 

02743 


TYRDAT 

02754 


TYRALL 

02765 


TYWDAT 

02776 


TYWALL 

03007 


TYREAD 

03020 


TYWRIT 

03024 


TYDATA 

03030 


tyall 

03034 


TYORV 

03040 


tydir 

03056 


TYMOOE 

03070 


TYBKW 

03100 


TYFWD 

03104 
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MESS1 

03110 

MESS2 

03126 

MESS3 

03133 

MESS4 

03141 

MESS5 

03145 

MESS6 

03154 

MESS 7 

03160 

MESS8 

03164 

MESS9 

03174 

MESS10 

03203 

MESS 1 1 

03206 

MESSl 2 

03213 

MESS13 

03221 

MESSt 4 

03227 

MESS15 

03233 

MESS16 

03240 

MESS17 

03242 

MESS18 

03252 

MESS19 

03261 

MESS20 

03271 

MESS21 

03300 

MESS22 

03310 

MESS23 

03314 

MESS 24 

03320 

MESS25 

03323 

MESS26 

03327 

MESS27 

03332 

MESS28 

03335 

MESS 29 

03343 

MESS30 

03350 

MESS31 

03355 

ASCI I 

03363 

RF1L0C 

03364 

BF2LOC 

03365 

OIRTBL 

03366 

FIFTHO 

03367 

FIVTHO 

03370 

FTYTHO 

03371 

IOCON 

03372 

INDEP 

03373 

LSTTBL 

03374 

MASK 

03375 

MBLOCK 

03376 

MOVBAK 

03377 

MUCH0 

03400 

ONE 

03401 

ONFTHO 

03402 

POSTBL 

03403 

RAOLOC 

03404 

RBFLOC 

03405 

rbufnd 

03406 

RBUFST 

03407 

REWIND 

03410 

RUBOUT 

03411 

SEAFOR 

03412 



randex 
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SEVEN 03413 
SEVSEV 03421 
TEN 03422 
TENTHO 03423 
TERSEV 03424 
THREE 03425 
TRETHO 03426 
TRTETH 03427 
TWOHUN 03430 
TWVTHO 03431 
TYTHOU 03432 
ACCUM 03433 
BLKFLG 03434 
BLKFNO 03435 
CORIVE 03436 
CKSUHR 03437 
CNTR 03440 
CNTR1 03441 
COCNTR 03442 
COMBIT 03443 
DATASM 03444 
DIRECT 03445 
DIRFLG 03446 
FRSWAT 03447 
FWDCHK 03450 
LSTBLK 03451 
LSTDRV 03452 
MSB I TS 03453 
NUMBER 03454 
NUMBLK 03455 
08VERS 03456 
PASFLG 03457 
PICNTR 03460 
PIDEXl 03461 
PIDEX2 03462 
PNTR1 03463 
PNTR2 03464 
PNTR3 03465 
PNTR4 03466 
POSITN 03467 
PREBLK 03470 
RAEFLG 03471 
RECORD 03472 
REVCHK 03473 
RSQFLG 03474 
SAVNUM 03475 
SBRECD 03476 
TALLY 03477 
TAPONT 03500 
TEMl 03501 
TEM2 03502 
TEM3 03503 
TEM4 03504 
TRECTR 03505 
UNFUNC 03506 
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RANOEX 

DTRE15 

WTCNTR 

03507 


R ANiBER 

004000 


RUFFRS 

004400 


CLSE 

700001 


CLOF 

700004 


CLON 

700044 


RSF 

700101 


RCF 

700102 


RS A 

700104 


RRR 

700112 


RSB 

700144 


PSF 

700201 


PCF 

700202 


PSA 

700204 


PSB 

700244 


KSF 

700301 


KRB 

700312 


TSF 

700401 


TCF 

700402 


TLS 

700406 


EEM 

707702 


LEM 

707704 




MAINDEC EVALUATION REQUEST 


After sufficient familiarization with the operation and documentation of this MAINDEC, 
please indicate your assessment of the following areas and return this form to Digital Equipment Cor- 
porati on . 

IDENTIFICATION : MAINDEC NO Program Title 

USAGE : Used by: Field Service Production | | Other f 

Frequency of Usage: Daily j | Weekly | | Monthly | ~| 

SUGGESTIONS FOR IMPROVEMENT 

1. Are the program loading and operating instructions: clear ? | incomplete ? j |, difficult to 
follow? [ ] 

2. Do the error reports and program documentation provide sufficient diagnostic information. 

in all cases? □ , in most cases? O very few cases Suggestions for improvement: 



3. Is the program effective in isolating malfunctions: in all cases ?(^], in most cases? O 

in very few cases ? o Would additional Scope loops or Switch Register control be helpful ?. 
Suggestions for improvement: 



4. Does the program ever fail to detect malfunctions exposed by other software?. 
Were Margins used? Please describe malfunction in detail: 



5. Does the program ever report non-existant malfunctions? 

Please indicate erroneous report and any pertinent operating conditions: 



6. Does this MAINDEC ever expose malfunctions in the Central Processor or other peripheral units not 

detected by the appropriate MAINDEC? 

Please describe malfunction and MAINDEC(S) used: 



7. Does the document pro vide a general understanding of the functional programming requirements of 
the system? Good [ J , Fair^J, None [ | . Would a general description of programming re- 
quirements increasethe effectiveness of thisMAINDEC? 


Remarks: 





Fold Here 
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Digital Equipment Corporation 
Diagnostic Programming Group 
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